FILTRO DE DATE NO CRYSTAL

USUARIO.EXCLUIDOS 30/08/2007 17:33:57
#233462
Pessoal, Boa tarde.

Sou nova por aqui e já pesquisei em tudo quanto foi forum na internet e não achei solução.
Tenho uma base sql e montei um relatorio com designer do crystal e o chamo via crviewer em um form.
Estou tentando filtrar os campos do relatorio por data inicio e fim, e não consigo, ele nao filtra nada, aparece todos os registros no relatorio.

Se alguem puder me ajudar, segue o codigo:

---------------------
Dim Report As New CRRelLote

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
Report.GroupSelectionFormula = ("Vw_rel.MesAnoLote" >= DataInicial And "Vw_rel.MesAnoLote" <= DataFinal)
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub


---------------------------
USUARIO.EXCLUIDOS 31/08/2007 10:49:47
#233558
Faz assim:

Report.GroupSelectionFormula = "({Vw_rel.MesAnoLote} in #" & _
Format(DataInicial, "mm/dd/yyyy") & "# to #" & _
Format(DataFinal, "mm/dd/yyyy") & "#)"

Vai resolver o seu problema.
USUARIO.EXCLUIDOS 31/08/2007 11:46:19
#233578 Resposta escolhida
faça assim

Dim rptData As String
Dim DataInicio, dataFinal As String

DataInicio = Format(mskDATAINICIO.Text, "yyyy,mm,dd")
dataFinal = Format(mskDATAFINAL.Text, "yyyy,mm,dd")

rptData = "{tabela.campo}"

rptSelecao = rptData & " in Date(" & DataInicio & ") to Date (" & dataFinal & ")"
crystalreport1.SelectionFormula = rptSelecao
USUARIO.EXCLUIDOS 31/08/2007 16:06:47
#233651
Consegui resolver quase parecido com a forma que FGONCALVES falou, ficou da seguinte forma:

Report.RecordSelectionFormula = "{vw_rel.mesanolote} >= Date(" & Format(DataInicial, "yyyy,mm,dd") & ") and {vw_rel.mesanolote} <= Date(" & Format(DataFinal, "yyyy,mm,dd") & ")"

O problema era o formato da data que não estava batendo, arrumando isso e fazendo alguns ajustes funcionou perfeitamente.

Obrigada!!
Tópico encerrado , respostas não são mais permitidas
Voltar