CRYSTAL - RECORDSELECTIONFORMULA NAO FUNCIONA

USUARIO.EXCLUIDOS 17/04/2004 20:21:08
#21120
Pessoal,

por que é que nao está funcionando o RecordSelectionFormula do Crystal 9. Estou usando o designer do VB 6.0.
Alguém poderia me ajudar ?

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = rel_pagos ' tela do designer
If relatorio.Combo1.Text = "TODOS" Then
v_cli = ""
Else
v_cli = "{cliente.nom_emp}= '" & relatorio.Combo1.Text & "'"
End If
If relatorio.Option2(0).Value = True Then
v_data = "{titulos.data_venc} = Date(" & Year(Date) & ", " & Month(Date) & ", " & Day(Date) & ")"
Else
v_data = "{titulos.data_venc} = Date(" & Year(CDate(relatorio.MaskEdBox1(0).Text)) & "," & Month(CDate(relatorio.MaskEdBox1(0).Text)) & ", " & Day(CDate(relatorio.MaskEdBox1(0).Text)) & ") and {titulos.data_venc} = Date(" & Year(relatorio.MaskEdBox1(1).Text) & "," & Month(relatorio.MaskEdBox1(1).Text) & ", " & Day(relatorio.MaskEdBox1(1).Text) & ")"
End If
If v_cli = "" And v_data = "" Then
resp = ""
ElseIf v_cli "" And v_data = "" Then
resp = "" & v_cli & ""
ElseIf v_cli = "" And v_data "" Then
resp = "" & v_data & ""
ElseIf v_cli "" And v_data "" Then
resp = "" & v_cli & " and " & v_data & ""
End If
rel_vencer.RecordSelectionFormula = "" & resp & ""

CRViewer91.ViewReport
CRViewer91.Zoom (100)
Screen.MousePointer = vbDefault

End Sub
USUARIO.EXCLUIDOS 17/04/2004 22:04:53
#21127 Resposta escolhida
bom toda vez que passo parametros par ao CR q seja DAta ele tem uma formatacao assim


{Tabela1.data} = DateTime (2004, 04, 17, 00, 00, 00)


eu sempre passo assim e funciona
Tópico encerrado , respostas não são mais permitidas
Voltar