COMO digitar no edit e ir filtrando os registros

10/12/2003

3

Olá pessoal estou tentando criar um filtro em meu banco atraves do edit, tipo conforme vai digitando no edit vai aparecendo os registros, tentei fazer conforme abaixo mas só funciona em banco .db preciso fazer para .dbf alguem pode me ajudar

na tabela Tcliente
procedure TForm1.TclienteFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
if (pos(Edit3.text, Tcliente.value)<> 0) then

Accept := true
else
Accept := false;
end;

end;

e no edit
procedure TForm1.Edit3Change(Sender: TObject);
begin
Tcliente.Refresh ;

end;

funciona perfeitamente em db mas preciso fazer para .dbf o erro ocorre aqui ´Tcliente.value´ ao compilar isso não é reconhecido.


O que devo fazer


Muito Obrigado


Responder

Posts

10/12/2003

Valdemar_d

Teste dessa forma
no onchange do edit coloque:
...
var
Texto : String;
begin
Texto := Edit.Text + ´*´;
Table1.Filter := ´FilialMesAno = ´+QuotedStr(Texto);
Table1.Filtered := True;

ou

Na Tabela => na propriedade Filter coloque:
(Campo <> ´CANCELADO´)
e escolha TRUE no Filtered


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira