|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Фильтр полей по дате
Пишу исследовательскую, не могу создать повторный поиск по дате на той же форме. Вот текст:
Код:
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; Изобретение не мое - нашла на этом форуме, но ссылку дать не могу. Работает хорошо, но только один раз, а потом не обновляем данные. Я в этом полный нуб. Помогите, пожалуйста!!! Последний раз редактировалось Admin, 09.01.2012 в 17:16. |