Показать сообщение отдельно
  #1  
Старый 16.09.2015, 22:52
kucher kucher вне форума
Прохожий
 
Регистрация: 16.09.2015
Сообщения: 15
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Фильтрация БД

Работал в DELPHI 7
создал 2 базы в Database Desktop
потом подключил их в BDE Administrator
получилась вот такая база
2015-09-15_235338.png
вот сам файл
фильтрация.rar
в поле edit ввёл этот код для фильтрации данных в дувух таблицах DBgrid
Код:
if Edit1.Text<>'' then 
begin 
Table1.Filtered:=true;
Table1.Filter:=DBGrid1.SelectedField.FieldName+'='''+Edit1.Text+'*''';
end 
else 
Table1.Filtered:=false;
end;
но почему то всё равно не работает фильтрация
Ответить с цитированием