کریستال ریپورت

[y.saied]

سلام ....... دوستان عزیز , کجای این ها اشتباهاً ........... کمکم کنید



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



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

[rezankh]

با سلام
شب يلدا بود و دير شد ببخشيد
اين برنامه كه مي ذارم اولين برنامه اي هستش كه با VBنوشتم و اونهم براي خرج و مخارج خونه خودم و بس الان هم براي كاهش حجم يكسري از فرم ها رو حذف كردم ولي بازهم حجمش نهايت با فشرد كردن به 1مگ رسيد
زياد حرفه اي نيست ولي چيزي كه شما لازم داريد توش هست اميدوارم مشكلتون حل بشه
در ضمن از كريستال 8 استفاده كردم

[y.saied]

از اساتید محترم کسی نمیخواد کمک کنه ؟

بخدا گیرم ........... لطفاً از روشی که خودم گذاشتم توضیح بدین .......... ممنون

[rezankh]

يك نمونه از برنامت بذار تا بهتر بفهميم چه مشكلي داري