[aqula]

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

Код:

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

[Zelius]

Код:

ADOQuery1.Filtered := True;

?

[aqula]

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

[Zelius]

а ADOQuery1.Filter пустой?

[aqula]

нет не пустой

Код:

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

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

[Zelius]

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

[Alegun]

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

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

Код:

...
  Accept:=(DataSet['Date'] > DataSet['EndDate']);
...

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