refresh در کریستال ریپورت 2005

[mostafa_leman]

با سلام
من از دستورات زیر برای ارسال پارامتر به کریستال ریپورت استفاده میکنم
دفعه اول درست جواب میده اما از بار دوم error میده ---> Load Report Failed
اگه میشه منو راهنمایی کنین


Private Sub FrmPrint_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Crv1 As MyProject.CRFactOrder = New MyProject.CRFactOrder
Me.CrystalReportViewer.ReportSource = Crv1

Crv1.SetParameterValue(0, documentcode)

Dim parameterField As ParameterField
parameterField = Crv1.ParameterFields("@DocCode")

parameterField.CurrentValues.AddValue(documentcode )
Me.CrystalReportViewer.Refresh()
End Sub

[meh_secure]

متد report source رو در آخرین خط قرار دهید.

[mostafa_leman]

آقا یه دنیا ممنون . مشکلم برطرف شد

[meh_secure]

خواهش میکنم عزیز جان. معرفت شما قابل تحسین هستش. ما که توقع تشکر نداریم ولی اکثرا میرن و یه فحشی هم میدن.