messi_66
شنبه 13 تیر 1388, 17:45 عصر
سلام کمکم کنید .در موقع گزارش گیری با کریستال ریپورت ارتباط برقرار نمیشه و error object required 424 راروی سطررنگی پایین میده. در ضمن refrence 10.2 را ندارم آیا اون لازمه ؟؟؟؟؟؟؟/
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim crDBTab As CRAXDRT.DatabaseTable
Private Sub Command1_Click()
Set crRept = crApp.OpenReport("f:\porojeh bashgah\report\Report3.rpt")
CrystalReport.ReportSource = crRept
CrystalReport.ViewReport
crRept.DiscardSavedData
CrystalReport.Zoom "85"
View_Report.Visible = False
End Sub
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim crDBTab As CRAXDRT.DatabaseTable
Private Sub Command1_Click()
Set crRept = crApp.OpenReport("f:\porojeh bashgah\report\Report3.rpt")
CrystalReport.ReportSource = crRept
CrystalReport.ViewReport
crRept.DiscardSavedData
CrystalReport.Zoom "85"
View_Report.Visible = False
End Sub