Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с фильтром, не получается правильно фильтровать 
:(
    Опции темы
RinOSpro
Дата 28.8.2007, 13:05 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Доброго времени суток! У меня одна проблемка 

в общем есть таблица в ней есть поле дата

Дата         |
                 |
1.10.2007 |
2.10.2007 |
3.10.2007 |
9.11.2007 |
1.12.2007 |
1.10.2007 |
1.10.2007 |

и .т.д  Как фильтровать таким образом что я ввожу в едит текст и сразу фильтруется как бы по первым символам того что я ввожу.

Работаю c ADO использую dbgrid 
  Вверх
RinOSpro
Дата 28.8.2007, 14:23 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Короче чтото получилось глянте но мне не очень нравиться может у кого лучше примеры есть

Код

if length(Edit2.Text) <> 0 then
  begin
    (Form1.DataSourceString.DataSet as TADOTable).Filtered := True;
    (Form1.DataSourceString.DataSet as TADOTable).Filter := ComboBox1.Items[ComboBox1.ItemIndex]+'>='''+Edit2.Text+'''';
  end else
    (Form1.DataSourceString.DataSet as TADOTable).Filtered := False;
if key = #13 then
  begin
  if length(Edit2.Text) <> 0 then
  begin
    (Form1.DataSourceString.DataSet as TADOTable).Filtered := True;
    (Form1.DataSourceString.DataSet as TADOTable).Filter := ComboBox1.Items[ComboBox1.ItemIndex]+'='''+Edit2.Text+'''';
  end else
    (Form1.DataSourceString.DataSet as TADOTable).Filtered := False;
  end;
except
  exit;
  key := #0;
end;
end;



как это работает когда нажимают энтер в фильтре  знак равно  ='''+Edit2.Text+''''; а когда просто печатают строку '>='''+Edit2.Text+''''; вот так
  Вверх
pseud
Дата 28.8.2007, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40
интересно бы посмотреть как ето у тебя работает
по-моему должны вылетать сплошные ошибки
может лучше тебе использовать не Edit а DateTimePicker
ну и код громоздок
хотя бы так
Код

tbl := TADOTable(Form1.DataSourceString.DataSet);
if length(Edit2.Text) <> 0 then
  begin
    tbl.Filtered := True;
    tbl.Filter := ComboBox1.Items[ComboBox1.ItemIndex]+'>='''+Edit2.Text+'''';
  end else
    tbl.Filtered := False;
if key = #13 then
  begin
  if length(Edit2.Text) <> 0 then
  begin
    tbl.Filtered := True;
    tbl.Filter := ComboBox1.Items[ComboBox1.ItemIndex]+'='''+Edit2.Text+'''';
  end else
    tbl.Filtered := False;
  end;
except
  exit;
  key := #0;
end;
end;



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
RinOSpro
Дата 28.8.2007, 14:58 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Код громосткий так как я его пытался сделать более универсальным у меня фильтр по нескольким полям

pseud Твое замечание учел.

Что прада что то не работает по Lookup полям можно это исправить????
  Вверх
pseud
Дата 28.8.2007, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40
Цитата(RinOSpro @  28.8.2007,  14:58 Найти цитируемый пост)
Что прада что то не работает

ну например в Edit я ввожу 
'1' - ошибка типа '1 - не Date'
'12' - ошибка типа '12 - не Date'
'12.' - ошибка типа '12. - не Date'
'12.1' - вот тут чета начинает работать



Это сообщение отредактировал(а) pseud - 28.8.2007, 16:19


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
RinOSpro
Дата 29.8.2007, 07:10 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
pseud  try except поможет

А вот Loocup поля так и не работают
  Вверх
Лиходей
Дата 27.5.2008, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 25.5.2008

Репутация: нет
Всего: нет
В этом случае лучше применять событие OnFilterRecord вместо фильтра. Удобная вещь. 
Цитата

Как фильтровать таким образом что я ввожу в едит текст и сразу фильтруется как бы по первым символам того что я ввожу.

 Именно такой случай описан здесь Фильтрация данных в Delphi
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0742 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.