y.saied
پنج شنبه 28 آذر 1387, 19:10 عصر
سلام ....... دوستان عزیز , کجای این ها اشتباهاً ........... کمکم کنید
Set crRept = crApp.OpenReport(App.Path & "\OwnrFilmMasrafi.Rpt")
crRept.RecordSelectionFormula = "{Masrafi.cm7}>" & 0 Or "{Masrafi.cm10}>" & 0 Or "{Masrafi.cm7mx}>" & 0 Or "{Masrafi.cm10mx}>" & 0 And "{Masrafi.ownerno}=" & 1000
For Each CrDBTable In crRept.Database.Tables
CrDBTable.ConnectBufferString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
";data source=" & App.Path & "\ndt.mdb;jet oledb:database password=rayankarno"
Next
frmMain.CrystalActiveXReportViewer1.ReportSource = crRept
frmMain.CrystalActiveXReportViewer1.ViewReport
Set crApp = Nothing
Set crRept = Nothing
قسمتی رو که با رنگ قرمز مشخص کردم خطا میده
Set crRept = crApp.OpenReport(App.Path & "\OwnrFilmMasrafi.Rpt")
crRept.RecordSelectionFormula = "{Masrafi.cm7}>" & 0 Or "{Masrafi.cm10}>" & 0 Or "{Masrafi.cm7mx}>" & 0 Or "{Masrafi.cm10mx}>" & 0 And "{Masrafi.ownerno}=" & 1000
For Each CrDBTable In crRept.Database.Tables
CrDBTable.ConnectBufferString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
";data source=" & App.Path & "\ndt.mdb;jet oledb:database password=rayankarno"
Next
frmMain.CrystalActiveXReportViewer1.ReportSource = crRept
frmMain.CrystalActiveXReportViewer1.ViewReport
Set crApp = Nothing
Set crRept = Nothing
قسمتی رو که با رنگ قرمز مشخص کردم خطا میده