Fala galera mais uma vez estou aqui para me ajudarem.

Criei um relatorio com crystal , tenho um campo pesquisa e faço minhas pesquisa no vb por este campo , como posso fazer para gerar um relatorio só com as buscas que eu fiz.

 

uso:

 

CrystalReport1.DataFiles(0) = "\servidorsistemaanco de dadosanco de dados do controle de etiquetasanco controle.mdb"
CrystalReport1.ReportFileName = "\Servidordptodesenvolvimentocontrole de etiquetaselatorio.rpt"
CrystalReport1.Destination = 0
CrystalReport1.Action = 0
 mas dá um erro , ou senão apareceu todos os cadastro e eu quero apenas os que eu pesquisei.

 

 

opa.. e ai ?

 

ja tentou usar o selection formula ? ele funciona como uma especie de clausula Where...

ex.: cr1.SelectionFormula = "{tabela.campo} > 1 and {tabela.campo} < 10"

 

espero ter ajudado..

 

abracos,

Developis.MN

veja este outro exemplo:

Dim lFormulaF   As String
'Captura data inicial
lFormulaF = "({temp.Data} >= DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
'Captura data final
lFormulaF = lFormulaF & " AND ({temp.Data} <= DATE(" & Mid$(DataFinal.Text, 7, 4) & "," & Mid$(DataFinal.Text, 4, 2) & "," & Mid$(DataFinal.Text, 1, 2) & "))"
lFormulaF = lFormulaF & " AND {temp.Categoria} = '" & DbcCAtegoria.Text & "'"
lFormulaF = lFormulaF & " And {temp.Idade} > '" & txtidade.Text & "'"
lFormulaF = lFormulaF & " AND {temp.Matricula} <='" & Matricula.Text & "'"

CRP.DataFiles(0) = App.Path & "atletismo.mdb"
CRP.ReportFileName = App.Path & "CampeonatoGeral.rpt"
CRP.SelectionFormula = lFormulaF
CRP.WindowState = crptMaximized
CRP.Destination = crptToWindow
CRP.Action = 1

amigo michel não entendi...pode me explicar melhor....

Não tem como eu pegar diretamente da minha Consulta que fiz num botão consulta usando uma SQL.