Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.06.2011, 11:32   #1
sid1868
Пользователь
 
Регистрация: 30.03.2010
Сообщений: 48
Восклицание Фильтрация

Нужно фильтрация по двум критериям:
1-й EDIt прописывается
Код:
If Length(Edit1.Text)>0 then
  Form2.ADOTable1.Filtered:=True
else
  Form2.ADOTable1.Filtered:=False;
Form2.ADOTable1.Filter:='marka_avto>'''+Edit1.Text+'''';
во 2-й Edit прописывается
Код:
If Length(Edit2.Text)>0 then
  Form2.ADOTable1.Filtered:=True
else
  Form2.ADOTable1.Filtered:=False;
Form2.ADOTable1.Filter:='im9_otchestvo>'''+Edit2.Text+'''';
Проблема в том при выводе в DBGrid фильтрация не корректно работает,
а при вводе полного названия фамилии или марки авто выбивается ошибка!!! если есть у кого норм поиск или фильтрация скиньте!!!!

Последний раз редактировалось Stilet; 14.06.2011 в 11:36.
sid1868 вне форума Ответить с цитированием
Старый 14.06.2011, 11:39   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Нужно задать для обоих эдитов один и тот же обработчик, в котором написать:
Код:
with Form2.ADOTable1 do begin
  Filtered:=False;
  If Length(Edit1.Text)>0 then begin
   Filter:='marka_avto>'+QuotedStr(Edit1.Text);
  end;
  If Length(Edit2.Text)>0 then begin
   if Edit1.Text<>'' then Filter:=Filter+' and ';
   Filter:=Filter+'im9_otchestvo>'+QuotedStr(Edit2.Text);
  end;
Идея понятна?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 14.06.2011, 11:43   #3
sid1868
Пользователь
 
Регистрация: 30.03.2010
Сообщений: 48
По умолчанию

Не совсем!!!!
sid1868 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фильтрация в БД M@riy@ БД в Delphi 5 27.09.2010 13:37
Фильтрация auffasst Общие вопросы Delphi 3 21.06.2010 18:10
Фильтрация Screame Microsoft Office Excel 7 01.07.2009 22:37
Фильтрация Лукманов Александр БД в Delphi 1 26.06.2008 10:18
Фильтрация Gorychev БД в Delphi 20 10.06.2008 23:30