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

1 回答

• 0

  使用此功能......

  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")
  

  回复于 2024-04-29T08:40:54+08:00