VB6打印晶体报告使用日期范围过滤器

Question

我想使用日期范围过滤器在VB6表单中打印一些数据，

vb6形式中的示例日期字段1 =日期1.值日期字段2 = date2.value

并使用与日期范围滤镜的组公式在水晶报告中打印

ado.date

谢谢

Answer 1

使用此功能...

Public Function ReportDateFilter(Date1 As Date, Date2 As Date, DataField As String) As String
Dim A1 As String
Dim b1 As String
Dim c1 As String
Dim d1 As String
Dim E1 As String
Dim f1 As String
A1 = Format(Date1, "yyyy") & ","
b1 = Format(Date1, "mm") & ","
c1 = Format(Date1, "dd")
d1 = Format(Date2, "yyyy") & ","
E1 = Format(Date2, "mm") & ","
f1 = Format(Date2, "dd")
ReportDateFilter2 = "{" & DateField & "} in Date (" & A1 & b1 & c1 & ")" & " " & "to Date (" & d1 & E1 & f1 & ")"
End Function

'和表单呼叫功能如下

cry.SelectionFormula = ReportDateFilter(fromDate.Text, Todate.Text, "tablename.Datefield")