20.06.2018, 21:04
|
Прохожий
|
|
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
|
|
Решено
Код:
procedure TForm6.Edit3Change(Sender: TObject);
begin
if Length(Edit3.Text) > 0 then
begin
DataModule2.ADOTable3.Filtered:=false;
DataModule2.ADOTable3.Filter:='['+Combobox1.Text+']' + ' LIKE '+ #39 + '%' + Edit3.Text + '%' + #39;
DataModule2.ADOTable3.Filtered:=true;
end
else DataModule2.ADOTable3.Filtered:=false;
end;
|