تغییر محل فایل گزارش

[dddd10]

سلام

موقع طراحی گزارش فایل دیتابیس را بصورت browse انتخاب کردم. فولدری که برنامه و گزارش درونش هست را تغییر محل میدم گزارش باید مجدد آدرس دهی بشه. چطوری خودکار شناسایی کنم ؟

دیتابیس اکسس و کریستال ریپورتر هست

[dddd10]

دوستان لطفا راهنمایی کنید

[kitcat_m18]

Dim CRapp As New CRAXDDRT.Application
Dim CRrep As New CRAXDDRT.Report
Dim Crtable As CRAXDDRT.DatabaseTable

For Each Crtable In CRrep.Database.Tables
Crtable.ConnectionProperties.Item("Database Name") = App.Path & "\Database.mdb"
Crtable.ConnectionProperties.Item("Database Password") = "123456"
Next

CRViewer.ReportSource = CRrep
CRViewer.ViewReport
CRrep.DiscardSavedData

موفق باشي :لبخندساده:

[Irandoost]

سلام دوستان
این کد برای Crystal Report 8.5 کار نمیکنه . توی 8.5 باید چکار کرد؟؟؟

[Irandoost]

این برای نسخه ی 10 هم کار نمیکنه. من Crystal Reports 2005 Redist x86 رو هم نصب کردم که به نسخه 10.2 ارتقا پیدا کنه ولی باز هم اصلا CRAXDDRT رو پیدا نمیکنه و به جاش CRAXDRT رو داره که اون هم این دستورات رو قبول نمیکنه. باید چکار کرد؟؟؟
خواهشا زودتر کسی کمک کنه. ممنون.....

[Irandoost]

کسی بلد نیستتتتتتت؟؟؟؟؟

دوستان اگه کسی بلده یا راهنمایی خاصی داره لطفا بگه. ممنون میشم