Fórum DUVIDA COM FILTRO NA TABELA PARADOX #388616
16/10/2010
0
SOU INICIANTE NO DELPHI .. ESTOU FAZENDO UM SIMPLES PROGRAMA DE DELPHI CADASTRO E PESQUISA DE PESSOAS
O CADASTRO TA FUNCIONANDO BLZ ....
A PESQUISA TA PARCIALMENTE FUNCIONANDO...PQ PARCIAMENTE
QUANDO FAÇO O FILTRO NA TABELA E COLOCO O CAMPO QUAL QUERO FAZER O FILTRO ELE FUNCIONA
VEJA O EX:
Table1.Filtered := False;
if (edit1.Text <> '') then
Table1.Filter := 'NMPESSOA=' +QuotedStr(edit1.text + '*')
else
Table1.Filter := '';
Table1.Filtered := True;
NO CODIGO ACIMA PROCURO O NOME DA PESSOA .. QUANDO DIGITO NO EDIT.... ATE ENTAO TA "SUSSA"
SUSSA = A TRANQUILO
POIS BEM
IMAGINEI SE EU COLOCASSE O CAMPO EM QUE QUERO FAZER O FILTRO NO COMBOBOX...
AE LOGO FIZ ISSO
procedure TFRMPROCURARCART.FormCreate(Sender: TObject);
begin
comboBox1.Items.Add('NMPESSOA');
comboBox1.Items.Add('NMRUA');
O COMBOBOX RECEBE OS CAMPOS DA TABELA EM QUE QUERO BUSCAR.
AE VAMOS PARA O CODIGO Q TA DANDO P PROBLEMA
Table1.Filtered := False;
if (edit1.Text <> '') then
Table1.FILTER:=combobox1.Text +QuotedStr(edit1.text + '*')
else
Table1.Filter := '';
Table1.Filtered := True
quando digito no edit da a seguinte msg
filter expression incorrectly termined
AE AGORA JA NAO SEI MAIS ...O Q FAZER...
ALGUEM TEM ALGUMA IDEIA ????
Fabio Oliveira......
Curtir tópico
+ 0Posts
16/10/2010
Carlos Bernardo
if (edit1.Text <> '') then
Table1.FILTER:=combobox1.Text +' = ' +QuotedStr(edit1.text + '*')
else
Table1.Filter := '';
Table1.Filtered := True
Gostei + 0
17/10/2010
Fabio Oliveira......
deu certo ....
mas qual e a função do igual???
Gostei + 0
18/10/2010
Eriley Barbosa
if (edit1.Text <> '') then
begin Table1.Filter := combobox1.Text + ' like ' + QuotedStr(edit1.text + '*'); Table1.Filtered := True;
end; Like é para busca aproximada e igual, bom seria para buscar igual ao que foi digitado no edit1 na propriedade text.
Gostei + 0
03/11/2010
Fabio Oliveira......
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)