Полуошибка ???

← →
kyn66 © (2007-10-10 12:31) [0]

Уважаемые мастера! На форме положил RX-компонент TDBDateEdit. Связал с полем базы. В свойствах установлено - сегодняшняя дата по умолчанию. Так вот при загрузге формы (запуск из IDE . Самостоятельно- ошибка не появляется) сперва вылетает ошибка Ошибка неизвестного типа и курсор устанавливается на код :
procedure TDBDateEdit.EditingChange(Sender: TObject); begin inherited ReadOnly := not FDataLink.Editing; if FDataLink.Editing and DefaultToday and (FDataLink.Field <> nil) and (FDataLink.Field.AsDateTime = NullDate) then FDataLink.Field.AsDateTime := SysUtils.Now; end;

В чем тут дело?

← →
Shamansky_ne (2007-10-10 14:31) [1]

а попробуй разложить сложное условия на несколько простых и как вариант используй вместо sysutils.now - now()

← →
Reindeer Moss Eater © (2007-10-10 14:38) [2]

Установка дефолтного значения поля средствами dbaware контрола?
А менее извращенного метода не нашлось?

← →
kyn66 © (2007-10-10 14:45) [3]

ошибка выявлена. В таблице есть поле LookUp. Не знаю почему, но она вылетает, точнее ошибка может быть разная, если параметр LookUpCache не установить в True. C этим разобрался . Однако выяснилось другое. Если дату сегодняшнего дня осавить показывать по умолчанию и не кликать на календарик (нет ни какого события), то в базу вместо даты записывается NULL. А если вводить руками или мышем тыкнуть - все пучком.

> Уважаемые мастера! На форме положил RX-компонент TDBDateEdit.
> Связал с полем базы. В свойствах установлено - сегодняшняя
> дата по умолчанию.

Постать установку даты по умолчанию в обработчик OnNewRecord DataSeta и не мзвращайся. TDBDateEdit показывал, показывает и должен показывать то, что хранится в поле записи НД. Хочешь что-то там увидеть - меняй значение поля.

Полуошибка ??? Найти похожие ветки