nader.golab
سه شنبه 03 آذر 1388, 12:57 عصر
سلام به دوستان عزیز. برنامه ای درست کردم که روی سیستم خودم مشکلی نداره ولی روی سیستم طرف که نصب می کنم این نرم افزار پیغام می ده Filed to Open Document از طرف کریستال ریپورت دیزاینر می ده. همه Dll ها نصبه ادرس پویا هم درست دادم.
نمی دونم چی کار باید بکنم.حتی کیرستال ریپورتم که نصب می کنم این مشکل رو بر طرف نمی کنه ممنون می شم از دوستان اگه این مشکل رو حل کنن.
اینم کدی که نوشتم.
Private Sub Form_Load()
Set crRept = crAPP.OpenReport(App.Path & "\DarS.Rpt")
For Each crDBTab In crRept.Database.Tables
crDBTab.ConnectionProperties.Item("Data Source") = App.Path & "\data\Data.bit"
crDBTab.ConnectionProperties.Item("Jet DataBase Password") = "585858"
Next
CrystalReport.ReportSource = crRept
CrystalReport.ViewReport
crRept.DiscardSavedData
End Sub
ولی این خطا رو از این کدش می گیره و می گه نمی تونی Set کنی
Set crRept = crAPP.OpenReport(App.Path & "\DarS.Rpt")
خواهشا کمکم کنین.
نمی دونم چی کار باید بکنم.حتی کیرستال ریپورتم که نصب می کنم این مشکل رو بر طرف نمی کنه ممنون می شم از دوستان اگه این مشکل رو حل کنن.
اینم کدی که نوشتم.
Private Sub Form_Load()
Set crRept = crAPP.OpenReport(App.Path & "\DarS.Rpt")
For Each crDBTab In crRept.Database.Tables
crDBTab.ConnectionProperties.Item("Data Source") = App.Path & "\data\Data.bit"
crDBTab.ConnectionProperties.Item("Jet DataBase Password") = "585858"
Next
CrystalReport.ReportSource = crRept
CrystalReport.ViewReport
crRept.DiscardSavedData
End Sub
ولی این خطا رو از این کدش می گیره و می گه نمی تونی Set کنی
Set crRept = crAPP.OpenReport(App.Path & "\DarS.Rpt")
خواهشا کمکم کنین.