toytown
دوشنبه 27 تیر 1390, 22:24 عصر
سلام دوستان
این کد گزارش گیری برنامه منه لطفا بگید مشکل از کجاست
Private Sub Cmd_rep_Click()
Dim crApp As New CRAXDDRT.Application
Dim crRept As New CRAXDDRT.Report
Dim crDBTab As CRAXDDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\Reports\rep.Rpt")
crDBTab.ConnectionProperties.Item("Data Source") = App.Path & "\DataBase\bank.mdb"
CrystalReport.ReportSource = crRept
CrystalReport.ViewReport
crRept.DiscardSavedData
End Sub
این کد گزارش گیری برنامه منه لطفا بگید مشکل از کجاست
Private Sub Cmd_rep_Click()
Dim crApp As New CRAXDDRT.Application
Dim crRept As New CRAXDDRT.Report
Dim crDBTab As CRAXDDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\Reports\rep.Rpt")
crDBTab.ConnectionProperties.Item("Data Source") = App.Path & "\DataBase\bank.mdb"
CrystalReport.ReportSource = crRept
CrystalReport.ViewReport
crRept.DiscardSavedData
End Sub