begin
if Edit1.Text<> '' then
begin
DataModule2.ADOTable1.Filter := 'HAUTEUR like '+QuotedStr(Edit1.Text+'*');
DataModule2.ADOTable1.Filtered := true;
end else
begin
DataModule2.ADOTable1.Filtered := false;
end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
DataModule2.ADOTable1.Filter := 'Nom like '+QuotedStr(Edit1.Text+'*');
DataModule2.ADOTable1.Filtered := true;
end else
begin
DataModule2.ADOTable1.Filtered := false;
end;
end;
end.