PDA

View Full Version : مشكل در فيلتر نمودن بين دو مقدار ونمايش در كريستال ريپورت



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

rezankh
سه شنبه 07 آبان 1392, 00:36 صبح
بازهم تمام تلاشم رو نكردم و خواستم زود به سوال دست پيدا كنم. البته اين بين شايد براي دوستان مفيد واقع شده باشه. بالاخره پس از كلي فكر كردن و خوندن دستورات sql ، كد S2 رو اينجوري مينويسم.



s2 = "({Table1.FName} = 'حسن') and ({Table1.DateSodoor2} IN 13920806 To 13920806)"