powerboy2988
جمعه 09 مرداد 1388, 19:39 عصر
سلام
کد زیر رو که می بینید برای یک گزارش استفاه شده ، که هر دفعه کدی رو توسط متغیر ID_Coach_Report به کریستال ریپورت می فرسته و تا اطلاعات مربوط به اون شخص به نمایش در بیاد.
برای بار اول این کار به درستی انجام میشه اما از دفعه اول فقط برای همون کدی که برای بار اول استفاده کردی کار می کنه، برای کد های دیگه کار نمی کنه
دلیلش چی می تونه باشه؟؟
Dim Report As New Coach_Money
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Top = 200
Me.Left = 200
Report.RecordSelectionFormula = "{Pay_Coach.ID_Coach} = '" & Trim(ID_Coach_Report) & "'"
Text1.Text = FarDate1.today
Report.FormulaFields.GetItemByName("txtdate").Text = "'" & Trim(Text1.Text) & "'"
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
کد زیر رو که می بینید برای یک گزارش استفاه شده ، که هر دفعه کدی رو توسط متغیر ID_Coach_Report به کریستال ریپورت می فرسته و تا اطلاعات مربوط به اون شخص به نمایش در بیاد.
برای بار اول این کار به درستی انجام میشه اما از دفعه اول فقط برای همون کدی که برای بار اول استفاده کردی کار می کنه، برای کد های دیگه کار نمی کنه
دلیلش چی می تونه باشه؟؟
Dim Report As New Coach_Money
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Top = 200
Me.Left = 200
Report.RecordSelectionFormula = "{Pay_Coach.ID_Coach} = '" & Trim(ID_Coach_Report) & "'"
Text1.Text = FarDate1.today
Report.FormulaFields.GetItemByName("txtdate").Text = "'" & Trim(Text1.Text) & "'"
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub