y.saied
چهارشنبه 27 آذر 1387, 12:35 عصر
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim CrDBTable As CRAXDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\OwnerFilmTahvili.Rpt")
crRept.RecordSelectionFormula = "{Tahvili.ownerno} =" & Val(Text1.Text)
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
میخوام در قسمت crRept.RecordSelectionFormula سه فیلد دیگه برای فیلتر کردن اضافه کنم ؛ ولی جواب نمیده ........ نمیدونم کجاش و اشتباه میکنم
مثلاً فیلدهایی رو نشون بده که ownerno برابر با text1.text و calsno بزرگتر از صفر یا madraseno بزرگتر از صفر باشد .
لطفاً کمکم کنید
Dim crRept As New CRAXDRT.Report
Dim CrDBTable As CRAXDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\OwnerFilmTahvili.Rpt")
crRept.RecordSelectionFormula = "{Tahvili.ownerno} =" & Val(Text1.Text)
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
میخوام در قسمت crRept.RecordSelectionFormula سه فیلد دیگه برای فیلتر کردن اضافه کنم ؛ ولی جواب نمیده ........ نمیدونم کجاش و اشتباه میکنم
مثلاً فیلدهایی رو نشون بده که ownerno برابر با text1.text و calsno بزرگتر از صفر یا madraseno بزرگتر از صفر باشد .
لطفاً کمکم کنید