گزارش در برنامه ادد نمی شود

[dddd10]

سلام
از کریستال ریپورتر 8.5 یک گزارش ایجاد کردم. و در فایل برنامه با نام Report1.rpt ذخیره شد! از گزینه open برنامه هر کاری میکنم فایل را اضافه نمیکنه!! باید چه کاری انجام بدم ؟

[kiss_my_l0ve]

حالا چرا ميخواي به برنامه اضافه كني
حالا اگه ميخواي بايد از add file اسفاده كني نه open

[dddd10]

خب میخوام گزارشگیری بدم به کاربر!!!

اقا من ادد کردم و کریستال ریپورترو انتخاب کردم. اما مراحل ساخت یک گزارش جدیدو نمایش میده! از قبل گزارشو اماده کردم میخوام اضافه کنم تو برنامه با اون کار حتما باید یدونه بسازم! چه کنم ؟

[kiss_my_l0ve]

خوب ميتوني از ادرس گزارش رو بدي تا نمايش بده
يه كريستال ريپورت ويور به برنامت ازفه كن بعد اين كد رو بنويس
[VB]

‍‍‍‍‍Private Sub Form_Load()
Global crApp As New CRAXDDRT.Application
Global crRept As New CRAXDDRT.Report
Set crRept = crApp.OpenReport(App.Path & "\report\RptRegister.rpt")
FrmResult.Show
CRViewer.ReportSource = crRept
CRViewer.ViewReport
Set crApp = Nothing
Set crRept = Nothing
CRViewer.Zoom 75
Frmgozaresh.Show
End Sub

Private Sub Form_Resize()
CRViewer.Height = (FrmResult.Height) - 500
CRViewer.Width = (FrmResult.Width) - 100
End Sub

[kiss_my_l0ve]

اصلا اين كارا نيازي نيست
يه فرم اضافه كن و يه كريستال ويوير به فرم اضافه كن
بعد اين كد رو كپي كن
Option Explicit

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
CRViewer1.ReportSource = crRept
CRViewer1.ViewReport
Set crApp = Nothing
Set crRept = Nothing
End Sub
بقيه كارا هم خودت بلدي

[dddd10]

مرسی ولی برای این خطمون خطا داده میشه وقتی رو باتن کلیک میکنم

Dim crApp As New CRAXDRT.Application

[dddd10]

میشه بگید باید چیکار کنم تا اون خطا ایجاد نشه؟ یا اینکه یک سورس بزارید تا از اون انجام بدم

[kiss_my_l0ve]

اول كريستال ريپورت رو نصب مكني
بعد تو وي بي تو قسمت رقرنس كريستال ريپور وييوير رو با 2 گزينه كه اسمش خيلي طولاني اخر يكي laibery داره يكي ديگه نداره اينا رو تيك بزار

[dddd10]

تمام این کارهارو کردم ولی نشد!
شما یک تکه برنامه ممکنه بزاری؟