Цитата:
Сообщение от MegaPiha
Вам надо использовать не DBEdit а Edit.
Пример фильтрования данных в компоненте Table .
Код:
Table1.Filtered:=false;
Table1.Filter:='fam like ' +quotedstr(edit1.Text+'%');
Table1.Filtered:=true;
|
Хм...я попробовала...Не получается.. Может по незнанию наделала кучу ошибок!Делала,делала!Вот что получилось..
Прописала в Квери:
SELECT * FROM kartabolnih.db
SELECT DISTINCT Fio FROM kartabolnih.db
WHERE Fio LIKE
ORDER BY Fio
В событии Эдита OnKeyUp прописала:
Код:
procedure TForm17.Edit2KeyUp(Sender: TObject;
var Key: Word;
Shift: TShiftState);
var s:string;
begin
s:='%'+edit2.text+'%';
with Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT DISTINCT Fio FROM kartabolnih.db');
SQL.Add('WHERE Fio LIKE'+quotedstr(s));
SQL.Add('ORDER BY Fio');
Open;
end;
end;
Admin: Не забываем про оформление кода!
В итоге,получилось,что прописывать в Эдит прописывает,но ничего не фильтрует
Где ошибка моя?