CRYSTAL REPORTS E VB 6
Pessoal tenho a seguinte fórmula no vb:
R_Despesas.SelectionFormula = [Ô]{Lancamento_Despesa.Safra_Referencia} =[Ô] & [Ô][ô][Ô] & MaskEdBox3.Text & [Ô][ô] and {Lancamento_Despesa.Pagamento_para}=[Ô] & [Ô][ô][Ô] & Combo3.Text & [Ô][ô] and {Lancamento_Despesa.Pago}=[Ô] & [Ô][ô][Ô] & Combo10.Text & [Ô][ô][Ô]
Só que, vai ter uns campos que o usuário vai deixar em branco na hora da consulta, como exemplo o (Pagamento_para Combo3)
neste caso se o usuário deixar o campo vazio na hora da consulta o relatório não aparece nada.
Como faço para resolver isso?
R_Despesas.SelectionFormula = [Ô]{Lancamento_Despesa.Safra_Referencia} =[Ô] & [Ô][ô][Ô] & MaskEdBox3.Text & [Ô][ô] and {Lancamento_Despesa.Pagamento_para}=[Ô] & [Ô][ô][Ô] & Combo3.Text & [Ô][ô] and {Lancamento_Despesa.Pago}=[Ô] & [Ô][ô][Ô] & Combo10.Text & [Ô][ô][Ô]
Só que, vai ter uns campos que o usuário vai deixar em branco na hora da consulta, como exemplo o (Pagamento_para Combo3)
neste caso se o usuário deixar o campo vazio na hora da consulta o relatório não aparece nada.
Como faço para resolver isso?
vc cria uma variável string para o filtro e vai testando, tipo:
meufiltro=lancamento.safra ( esse seria o principal, que sempre entraria)
if combo3 <> empty then
meufiltro=meufiltro & combo3
endif
if combo10 <> empty then
meufiltro=meufiltro & combo10
endif
R_Despesas.SelectionFormula =meufiltro..
coloquei a grosso modo ai, é só vc colocar a sintaxe correta, e não tem erro, pode usar qtos filtros quiser..
meufiltro=lancamento.safra ( esse seria o principal, que sempre entraria)
if combo3 <> empty then
meufiltro=meufiltro & combo3
endif
if combo10 <> empty then
meufiltro=meufiltro & combo10
endif
R_Despesas.SelectionFormula =meufiltro..
coloquei a grosso modo ai, é só vc colocar a sintaxe correta, e não tem erro, pode usar qtos filtros quiser..
Tópico encerrado , respostas não são mais permitidas