چجوری از یک فایل ساخته شده در کریستال ریپورت در بیسیک استفاده کنیم

حرفه ای ها بیان

با سلام من یک فایل گزارش در کرستال ریپورت 9دارم چجوری اونو در بیسیک 6 مورد استفاده قرار دهم

سلام
با اين كد ميتوني گزارشت رو تو وي بي نمايش بدي

Private Sub Command1_Click()
Dim crapp As New craxdrt.application
Dim crRept As New craxdrt.report
Set crRept = crapp.openReport(App.Path & "\report.rpt")
CrystalActivexReportViewer1.ReportSource = crRept
CrystalActivexReportViewer1.ViewReport
Set crapp = Nothing
Set crRept = Nothing
End Sub

اگه مشكلي بود بفرما دوستان كمك ميكنن
موفق باشي

نقل قول:

---

نوشته شده توسط kbdfa [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
با اين كد ميتوني گزارشت رو تو وي بي نمايش بدي

Private Sub Command1_Click()
Dim crapp As New craxdrt.application
Dim crRept As New craxdrt.report
Set crRept = crapp.openReport(App.Path & "\report.rpt")
CrystalActivexReportViewer1.ReportSource = crRept
CrystalActivexReportViewer1.ViewReport
Set crapp = Nothing
Set crRept = Nothing
End Sub

اگه مشكلي بود بفرما دوستان كمك ميكنن
موفق باشي

---

حتما تست میکنم و متشکرم از راهنمایی خوب شما

نقل قول:

---

نوشته شده توسط majj [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

حتما تست میکنم و متشکرم از راهنمایی خوب شما

---

ببخشید اما این در خط دوم ERROR میگیره و میگه که یک متغییر تعریف نشده

قبلا تو سايت خودم يه سورس گذاشته بودم:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
البته در اين سورس گزارشش توسط كريستال ريپورت 10 درست شده كه فكر نكنم واسه ورژن 9 هم مشكلي پيش بياره

با سلام مجدد
ببخشید که مرتب سوال میپرسم
من در سایت شما هم عضو بود ه ام پروژه شما را هم دانلود کردم اما موقع اجرا یک فایل dll رو پیدا نمیکنه
crviewer.dll رو پیدا نمیکنه و اجرا هم نشد
باز هم متشکرم اگه میشه دوباره راهنمایی کنید و در مورد کد خود نیز مقداری توضیح بنویسید
منتظر جواب شما هستم

این که جواب نمیده