Calculated Fields

← →
Olegka © (2004-03-04 11:18) [0]

Привет всем!

У меня такая проблема: есть поле CODE и SUM. В зависимости от CODE надо разнести SUM в 2 calculated fields: Income и Outcome. Пишу обработчик OnCalcFields.

procedure TForm.IBDS2CalcFields(DataSet: TDataSet); begin if DataSet.FieldByName("CODE").AsInteger<4 then begin IBDS2income.Value:=DataSet.FieldByName("SUM").AsFloat; IBDS2outcome.Value:=0; end else begin IBDS2income.Value:=0; IBDS2outcome.Value:=DataSet.FieldByName("SUM").AsFloat; end end;

И пишет при присваивании значений, что датасет на в dsEdit mode.
И где я не прав? :(

Заранее спасибо, Olegka

← →
Карелин Артем © (2004-03-04 11:24) [1]

Ну если просит, то вот:
DataSet.Edit;
***
DataSet.Post;

Я лично вешаю на OnGetText у поля отсебятину.

← →
Nikolay M. © (2004-03-04 11:29) [2]

> IBDS2income.
> IBDS2outcome.

Точно указаны как Calculated?

← →
Johnmen © (2004-03-04 11:30) [3]

Поля income и outcome должны быть FieldKind=fkCalculated
Они есть в НД и их нет в таблице...

← →
Olegka © (2004-03-04 11:34) [4]

To Артем
В обработчике OnCalkFields нельзя менять состояние Dataset, оно в dsCalk и так

To Nikolay
Точно :(

Попробуй удалить эти поля и пересоздать их заново. А код у тебя правильный.

Спасибо!
Пересоздание полей помогло!
Во как :))))

Calculated Fields Найти похожие ветки