Цитата:
|
Сообщение от friz
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
DataModule1.ZTable1.Filter:= [foCaseInsensitive];
DataModule1.ZTable1.Filter:='FAM = '''+'*' + edit1.Text + '*'+'''';
DataModule1.ZTable1.Filtered:=true;
end; |
к сожалению данный код не работает... при поиске просто убирает все данные из грида... спасибо за помощь!!!
но вопрос открыт!!!!