|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ошибка в фильтрации ADOTable
Здравствуйте, при фильтраций записи выходит ошибка:
аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом. Хотел сделать чтобы при нажатий кнопки открылось форма уже отфильтровав записи. Код:
procedure TForm1.Button2Click(Sender: TObject); begin form4.ADOTable1.Filtered:=False; form4.ADOTable1.Filter:='[weekday]'+Label9.Caption; form4.ADOTable1.Filtered:=true; form4.show; end; Код:
const week:array[1..7] of string = ('Жексенбі', 'Дүйсенбі', 'Сейсенбі', 'Сәрсенбі', 'Бейсенбі', 'Жұма', 'Сенбі'); procedure TForm1.FormActivate(Sender: TObject); var day:integer; begin day:=DayOfWeek(date); Label9.Caption:=week[day]; |