[aqula]

Почему этот код не работает?

Код:

1 2 3 4 5

procedure TForm.ADOQuery1FilterRecord(DataSet: TDataSet;   var Accept: Boolean); begin   Accept:=(DataSet['Date'] > DataSet['EndDate']); end;

[Zelius]

Код:

1	ADOQuery1.Filtered := True;

?

[aqula]

Далаю. Не фильтрует по этому условию все равно.

[Zelius]

а ADOQuery1.Filter пустой?

[aqula]

нет не пустой

Код:

1 2 3

Filter:='Key='+FKey.AsString + ' AND UserKey='+IntToStr(CurrentUserKey)+ ' AND UserMess<>'+IntToStr(CurrentUserKey);   Filtered:=True;

Видно даты как то не так надо фильтровать (

[Zelius]

Может условие в Filter не возвращает записи и обработчик не дергается. Что значит не работает? не выполняется, выдает ошибку?

[aqula]

Должен фильтрануть и оставить пусто. Фильтр отрабатывает, а по датам не фильтрует как раз. Что с ним что без него...

[aqula]

Оказывается, друзья, он фильтрует нормально.
Просто неправильно работает в D7 ADOQuery.RecordCount на фильтрацию в событии OnFilterRecord. Выдает мне только то что отфильтровал основным фильром в Filter, а что отфильтровано в событии OnFilterRecord он не считает...
К а к ж е т а к ? ?

Может знаете как заставить его считать правильно?

[M.A.D.M.A.N.]

А почему фильтр нельзя прямо в запрос прописывать доп условием выборки?

[aqula]

Здесь указано что сравнивать поля в основном блоке нельзя, но можно в событии. И я проверял-видел ошибку. К тому же я не понял как там фильтровать даты.

[M.A.D.M.A.N.]

Больше нечего сказать.

[Alegun]

Сообщение от aqula

Почему этот код не работает?

Код:

Есть подозрение, что и не будет так работать - более конкретным второй аргумент должон быть, в поле EndDate видимо меняется постоянно дата под сравнение и интерпретатор "базного языка" возможно просто теряется в разнообразии дат для отбора. Попробуйте заменить DataSet['EndDate']) на напр. '1-1-2016', если это сработает, тогда возможно придётся методом перебора из отобранных записей нужные выбирать вручную, может я и ошибаюсь

[aqula]

Спасибо за иронию. Картинка понравилась.
Отдельный запрос для подсчета не самый оптимальный способ достижения результата.
Я выяснил что он все же правильно фильтрует. Просто неправильно считался RecordCount. Это и привило к подозрениям на неправильную работу фильтра. В интернете выяснил что это распространенная проблема при использовании события FilterRecord у ADO. Поэтому было решено подсчет вести вручную.
Придумал вот как:
Last;
RecNo;
Тем самым он выдал верный результат и правильно подсчитал.
Тема закрыта. Спасибо за помощь.