|
|
Postada em 29/06/2004 22:34 hs
Olá a todos... Gostaria de saber como fazer uma fórmula para buscar somente o registro procurado ou todos que se iniciem com a string digitada... Estou tentando da seguinte forma, mas naum estou obtendo resultados... Dim vFormula as String If txtBuscaRel.Text <> "" Then
vFormula = "{PRODUTOS.PROCODORI}=" & txtBuscaRel
MDIPrincipal.CrystalReport1.WindowState = 2
MDIPrincipal.CrystalReport1.Destination = 0
MDIPrincipal.CrystalReport1.DataFiles(0) = App.Path & "PhilEst.mdb"
MDIPrincipal.CrystalReport1.ReportFileName = App.Path & "Produtos.rpt"
MDIPrincipal.CrystalReport1.SelectionFormula = vFormula
MDIPrincipal.CrystalReport1.Action = 1
End If Recebo a msg de q ha um erro na fórmula, no caso o campo PROCODORI eh um campo do tipo texto, mas, qdo uso essa formula fazendo a busca no codigo interno PROCODINT, q eh um campo tipo numero, ela funciona... O q devo fazer??? Desde jah agradeço qualquer ajuda... Ateh mais...
_______________________________________________________________________ Se vc pensa q pode, ou se vc pensa q não pode, de qualquer forma vc está certo... ProgrammerMan
|
|
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 29/06/2004 22:37 hs
Para tirar o erro coloque entre aspas simples. Assim Dim vFormula as String If txtBuscaRel.Text <> "" Then
vFormula = "{PRODUTOS.PROCODORI}='" & txtBuscaRel & "'"
MDIPrincipal.CrystalReport1.WindowState = 2
MDIPrincipal.CrystalReport1.Destination = 0
MDIPrincipal.CrystalReport1.DataFiles(0) = App.Path & "PhilEst.mdb"
MDIPrincipal.CrystalReport1.ReportFileName = App.Path & "Produtos.rpt"
MDIPrincipal.CrystalReport1.SelectionFormula = vFormula
MDIPrincipal.CrystalReport1.Action = 1
End If
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
Postada em 01/07/2004 00:22 hs
Caro Rochª... Valeu pela dica, me ajudou bastante, a unica coisa que mudei foi: vFormula = "{PRODUTOS.PROCODORI}LIKE'" & txtBuscaRel & "'" para q a consulta funcionasse legal... Tenho uma outra dúvida, se vc puder me ajudar... Nessa mesma consulta, gostaria q naum entrassem os registros q estaum marcados como excluidos... No BD o critério q indica q esses registros estaum excluidos eh um campo chamado ProDataBaixa, eh um campo do tipo Data, qdo estah com uma data indica registro excluido, qdo estal Null indica registro ativo, tentei como eu faço na consulta SQL e de outras formas, mas naum funcionou, uma das tentativas foi: vFormula = "{PRODUTOS.PROCODORI}LIKE'" & txtBuscaRel & "'" and "{PRODUTOS.PRODATABAIXA}IS NULL" Novamente agradeço... E desde jah agradeço qualquer nova ajuda... Teh mais...
_______________________________________________________________________ Se vc pensa q pode, ou se vc pensa q não pode, de qualquer forma vc está certo... ProgrammerMan
|
|
|
|
|
|
Postada em 01/07/2004 07:12 hs
Caro conterrâneo tente isto: vFormula = "{PRODUTOS.PROCODORI}LIKE'" & txtBuscaRel & "'" and not isnull({PRODUTOS.PRODATABAIXA})" P.Prudente-SP. |
|
|
|
|
|
Postada em 01/07/2004 20:21 hs
E ae JCarlos, blz... Cara, tipow, naum funcionou, eu recebo a msg Type mismatch, ou em outra tentativa, Object required... Se tiver outra dica!!! Novamente agradeço... Teh mais...
_______________________________________________________________________ Se vc pensa q pode, ou se vc pensa q não pode, de qualquer forma vc está certo... ProgrammerMan
|
|
|
|
JCarlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
Postada em 02/07/2004 08:01 hs
Fiz um teste assim e passou: gReport.SelectionFormula = "{PRODUTO.nmProduto} LIKE 'Pente%' and not isnull({Venda.dtVenda})"
|
|
|
|
