VB6 печати кристалл отчетов с помощью диапазона дат фильтра

Question

Я хочу напечатать некоторые данные в кристаллической форме отчета из VB6 с использованием диапазона дат фильтра,

, например, в форме VB6 есть поле Дата 1 = date1.value поле Дата 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")