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

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

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.04.2011, 13:06   #1
Виктория7777
Пользователь
 
Аватар для Виктория7777
 
Регистрация: 02.12.2010
Сообщений: 67
Вопрос Фильтрация (Access и Delphi)

Если поле подстановочное (т.е. мы его подставили из одного DBGrid в другой BDGRid) то при фильтрации как к нему можно обратиться...?
Если так, то он ошибку показывает:
Код:
begin
  Document.Filtered := False;
  if Edit1.Text <>'' then
  Document.Filter :='Documentregi= ' + Edit1.Text
  else
  // Если пользователь ничего не ввёл то очистим парамметры фильтрации
  Document.Filter :='';
  // Включаем фильтрацию
  Document.Filtered := true;
end;



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 18.04.2011 в 16:42.
Виктория7777 вне форума Ответить с цитированием
Старый 18.04.2011, 08:17   #2
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

если у вас поле Documentregi текстовое то значение едита надо заключать в двойные кавычки
Код:
Document.Filter :='Documentregi = ' + QuotedStr(Edit1.Text);
SERG1980 вне форума Ответить с цитированием
Старый 18.04.2011, 16:32   #3
Виктория7777
Пользователь
 
Аватар для Виктория7777
 
Регистрация: 02.12.2010
Сообщений: 67
По умолчанию

Неа, оно числовое...(
Виктория7777 вне форума Ответить с цитированием
Старый 18.04.2011, 16:43   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

а если так попробовать?
Код:
begin
  Document.Filtered := False;
  if Edit1.Text <>'' then begin
     Document.Filter :='Documentregi= ' + Edit1.Text
     // Включаем фильтрацию
     Document.Filtered := true;
  end
  else
    // Если пользователь ничего не ввёл то очистим параметры фильтрации
    Document.Filter :='';
end;
а в каком случае (пустой Edit1 или не пустой) выдаётся ошибка и какая ошибка выдаётся?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.04.2011, 17:00   #5
Виктория7777
Пользователь
 
Аватар для Виктория7777
 
Регистрация: 02.12.2010
Сообщений: 67
По умолчанию

Если Edit пустой, то ошибка не выдаётся.
Код не хочет работать...(
Виктория7777 вне форума Ответить с цитированием
Старый 18.04.2011, 21:45   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Код не хочет работать...(
это ошибка такая? "Не хочу работать!"
Круто! никогда не видел такую!
Дайте, пожалуйста скриншотик посмотреть на такое чудо!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фильтрация Delphi VadEr БД в Delphi 6 14.10.2009 11:09
Фильтрация (delphi) VadEr БД в Delphi 5 10.10.2009 15:40
Delphi\MySql\Фильтрация. MaGWaY_minsk Помощь студентам 2 17.06.2009 11:01
Фильтрация в Delphi с помощью Combobox Веснушка_ната Помощь студентам 4 07.04.2009 02:36
Фильтрация в Delphi Лукманов Александр БД в Delphi 4 16.06.2008 15:30