Скачать: CL | DM;

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

← →
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. А если вводить руками или мышем тыкнуть - все пучком.

---

← →
ЮЮ ©   (2007-10-11 03:09) [4]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c