Пишу исследовательскую, не могу создать повторный поиск по дате на той же форме.
![Непонимание](images/smilies/confused.gif)
Вот текст:
Код:
procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
{if ADOTable1.Filtered then
begin
Accept:= (DataSet.FieldByName('Дата').AsDateTime >=
Form1.DateTimePicker1.Date) and
(DataSet.FieldByName('Дата').AsDateTime <= Form1.DateTimePicker2.Date);
end
else
Accept:=true;
end;
Админ: Пользуемся тегами для оформления кода!
Изобретение не мое - нашла на этом форуме, но ссылку дать не могу.
Работает хорошо, но только один раз, а потом не обновляем данные. Я в этом полный нуб. Помогите, пожалуйста!!!