سلام
in_chan_nafar زحمت كشيده بود و اموزش بسيار خوبي براي كريستال 10 نوشته بود ولي من چون كريستال 9
داشتم نتوانستم نمونه هاي انرا اجرا كنم
Private Sub Command1_Click()
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Set crRept = crApp.OpenReport(App.Path & "\Report1.Rpt") 'Report File
CrystalActiveXReportViewer1.ReportSource = crRept
CrystalActiveXReportViewer1.ViewReport
Set crApp = Nothing
Set crRept = Nothing
End Sub
در كريستال 9 خط 5 و 6 را خطا ميگيرد
ايا كشي هست مرا ياري كند