|
|
Postada em 21/10/2004 10:17 hs
Como Fazer uma consulta por codigo no relatorio, utilizo o Crystal Report.... Quero uma consulta que quando clique no botão para emitir um relátorio ele me peça o nome ou codigo e ele faça uma filtragem a partir do nome ou do codigo que digitar... Espero ajuda, valew galera... |
|
|
|
|
|
|
|
Postada em 21/10/2004 10:22 hs
Suponha que na textbox text1 o usuário digite trecho do nome. cr.selectionformula = "{tabela.campo} like '%" & text1.text & "'" onde cr é o nome do controle crystal reports. Observe que há sinais de % antes e depois de text1.text, significa qualquer coisa antes e qualquer coisa depois. Poderá ter só depois de text1.text, assim filtraria somente campos que iniciassem com o trecho e tivessem qualquer coisa depois.
<DIV><FONT style="BACKGROUND-COLOR: #000000" face="arial black" color=#60bf00 size=3><IMG style="VERTICAL-ALIGN: middle; align: center" height=20 alt=Emoções src="http://www.vbweb.com.br/images/em_smile.gif" width=20 border=0> Zeuzebio</FONT></DIV>
|
|
|
|
|
|
Postada em 21/10/2004 10:23 hs
Na verdade, no exemplo anterior eu coloquei somente % antes de text1.text, assim somente campos que terminem com o trecho digitado serão exibidos.
<DIV><FONT style="BACKGROUND-COLOR: #000000" face="arial black" color=#60bf00 size=3><IMG style="VERTICAL-ALIGN: middle; align: center" height=20 alt=Emoções src="http://www.vbweb.com.br/images/em_smile.gif" width=20 border=0> Zeuzebio</FONT></DIV>
|
|
|
|
|
|
Postada em 21/10/2004 19:11 hs
Pessoal ainda não deu certo não exibe nada no relátorio, lembrando eu utilizo datacontrol para abrir meus bancos de dados.... |
|
|
|
|
|
Postada em 22/10/2004 08:51 hs
tenta colocar um refresh depois do código. talves resolva.
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 22/10/2004 09:22 hs
Tente Crystal_Printer.DataFiles(0) = Drive & diretorio_trab + "" + Diretorio_sistema + ".mdb"
' Imprime o cliente (pelo codigo) que foi digitado em txt_codigo Crystal_Printer.SelectionFormula = "{cliente.codigo} = " + txt_codigo.text
Crystal_printer.ReportFileName = "rl_clientes.rpt" Crystal_printer.Action = 1
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
