Цитата:
|
Сообщение от jekahm
Спасибо, но не помогает!  |
Ну это уже похоже на лень...
Вот:
Код:
if Length(Edit1.Text)>0 then begin
AdoTable1.Filter:='[Фамилия] like ' +QuotedStr(Edit1.Text+'%');
ADOTable1.Filtered:=True
end
else
ADOTable1.Filtered:=False;
И если уж TTable используешь, то в гриде его DataSource указать надо, а не TQuery.
ЗЫ Я бы посоветовал забыть про TTable