Como faço para filtrar por data em um relatório no crystal??? estou usando assim para gerar o relatorio, caso o campo de data inicio estiver em branco:

 

Dim a As New CRAXDRT.Application
Dim b As New CRAXDRT.Report

Private Sub cmpvisualizar_Click()
On Error Resume Next
    If txtdatain.Text = "" Then
        flag = MsgBox("Exibir Todo o Movimento?", vbYesNo + vbQuestion, "Prog")
                
            Set b = a.OpenReport("C:ProgelatVendas.rpt")
            Screen.MousePointer = vbHourglass
            b.DiscardSavedData
            b.VerifyOnEveryPrint = True
            frmRelatorio.CRViewer1.ReportSource = b
            frmRelatorio.CRViewer1.ViewReport
            Screen.MousePointer = vbDefault
            frmRelatorio.Show
          Else
            Exit Sub
            txtdatain.SetFocus
        End If
                   
End Sub

 

Tenho os campos txtdatain e txtdatafi para colocar para filtrar....

Caro amigo eu uso chamar assim:

gReport.SelectionFormula = "{Vendedor.cdLoja}=" & gLoja & _
    " and {Venda.dtVenda}>=date('" & Format(gdtInicio, "yyyy-mm-dd") & "')" & _
    " and {Venda.dtVenda}< date('" & Format(gdtFinal + 1, "yyyy-mm-dd") & "')"
gReport.PrinterCopies = 1
gReport.ReportFileName = App.Path & "VendasPorVendedor.rpt"
gReport.Destination = crptToWindow
gReport.Action = 1
gReport.SelectionFormula = ""

gReport é o objeto crystalreport inserido no form.

Espero tê-lo ajudado.