rezankh
دوشنبه 06 آبان 1392, 18:47 عصر
سلام من در كامند دستور زير رونوشتم. تا زماني كه از فيلتر نمودن عملگرهاي غير از between استفاده ميكنم مشكلي ندارم ولي زماني كه از عملگر between چه همراه با ديگر عملگرها و چه تنها استفاده ميكنم خطاي زير ور ميده. ( گزارشگيرم كريستال ريپورت 8.5 هست و فيلدي كه با between فيلتر ميشه از نوع عددي هست.)
در ضمن مقدار s2 از تركيب چند تكست ديگه بدست اومده ولي فرمت كلي فيلتر شدن همينه.
Private Sub Command1_Click()
s2 = "({Table1.FName} = 'حسن') and ({Table1.DateSodoor2} between 13920806 and 13920806)"
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim CrDBTable As CRAXDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\Report2.rpt") 'reportfile
For Each CrDBTable In crRept.Database.Tables
CrDBTable.Location = App.Path & "\Bank.mdb"
Next
crRept.RecordSelectionFormula = s2
Chap.CRViewer1.ReportSource = crRept
Chap.CRViewer1.ViewReport
Chap.CRViewer1.Zoom (83)
Set crApp = Nothing
Set crRept = Nothing
Chap.Show
Chap.Top = 0
End Sub
در ضمن مقدار s2 از تركيب چند تكست ديگه بدست اومده ولي فرمت كلي فيلتر شدن همينه.
Private Sub Command1_Click()
s2 = "({Table1.FName} = 'حسن') and ({Table1.DateSodoor2} between 13920806 and 13920806)"
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim CrDBTable As CRAXDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\Report2.rpt") 'reportfile
For Each CrDBTable In crRept.Database.Tables
CrDBTable.Location = App.Path & "\Bank.mdb"
Next
crRept.RecordSelectionFormula = s2
Chap.CRViewer1.ReportSource = crRept
Chap.CRViewer1.ViewReport
Chap.CRViewer1.Zoom (83)
Set crApp = Nothing
Set crRept = Nothing
Chap.Show
Chap.Top = 0
End Sub