PDA

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


majj
17-03-2007, 06:43
حرفه ای ها بیان

با سلام من یک فایل گزارش در کرستال ریپورت 9دارم چجوری اونو در بیسیک 6 مورد استفاده قرار دهم
kbdfa
17-03-2007, 09:00
سلام
با اين كد ميتوني گزارشت رو تو وي بي نمايش بدي

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
19-03-2007, 05:02
سلام
با اين كد ميتوني گزارشت رو تو وي بي نمايش بدي

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
22-03-2007, 13:31
حتما تست میکنم و متشکرم از راهنمایی خوب شما

ببخشید اما این در خط دوم ERROR میگیره و میگه که یک متغییر تعریف نشده
shamsoft
22-03-2007, 15:42
قبلا تو سايت خودم يه سورس گذاشته بودم:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
البته در اين سورس گزارشش توسط كريستال ريپورت 10 درست شده كه فكر نكنم واسه ورژن 9 هم مشكلي پيش بياره
majj
23-03-2007, 08:18
با سلام مجدد
ببخشید که مرتب سوال میپرسم
من در سایت شما هم عضو بود ه ام پروژه شما را هم دانلود کردم اما موقع اجرا یک فایل dll رو پیدا نمیکنه
crviewer.dll رو پیدا نمیکنه و اجرا هم نشد
باز هم متشکرم اگه میشه دوباره راهنمایی کنید و در مورد کد خود نیز مقداری توضیح بنویسید
منتظر جواب شما هستم
majj
03-04-2007, 06:05
این که جواب نمیده