обновление detail

← →
zunder © (2004-12-02 17:17) [0]

в событии master.OnDataChange закрываю таблицу и если связываемые поля в master`е не пустые открываю ее, при работе программы возникает ошибка обращения не к свое области памяти.
Не могу понять что не так.

const Busy: Boolean = False; begin if Busy then Exit; Busy := True; if (AnsiUpperCase(Sender.FieldName) = "AR_INN") then if Sender.IsNull then begin dstMain.FN("AR_NAME").Clear; dstMain.FN("DOG_NO").Clear; dstMain.FN("DOG_DATA").Clear; end; if (AnsiUpperCase(Sender.FieldName) = "DOG_NO") then if Sender.IsNull then dstMain.FN("DOG_DATA").Clear; //обновить договоры арендатора if dstMarkDogs.State = dsBrowse then begin dstMarkDogs.Close; if (dstMain.FN("AR_INN").AsString <> "") or (dstMain.FN("DOG_NO").AsString <> "") then dstMarkDogs.CloseOpen(False); end; if (AnsiUpperCase(Sender.FieldName) = "RENT") or (AnsiUpperCase(Sender.FieldName) = "PENI") or (AnsiUpperCase(Sender.FieldName) = "NDS") then begin dstMain.FN("PAY_AMOUNT").AsFloat := dstMain.FN("RENT").AsFloat+dstMain.FN("NDS").AsFloat+dstMain.FN("PENI").AsFloat; end; Busy := False;

← →
msguns © (2004-12-02 18:14) [1]

Не вникая в смысл таких странных переоткрытий (зачем их делать руками, если определена связь Master-Detail, причем стринговые поля, если связь д.б. по ID, что делает таинственный Busy,который по идее всегда ложь (или он переприсваивается в обработчмках событий датасетов) и т.д.), не понятно как работает присвоение в последней конструкции if, если предварительно НД не был переведен в моду Edit.
Вообще странная связь ;))

dstMain переходит в режим [dsEdit,dsInsert] при открытии модального окна.
Busy нужна для того чтобы не было рекрсивных обработок, т.к. dstMain - master.
В master-detail, если ключ мастера пустой (добавляем запись в master) у меня detail-таблица выдает все записи, мне это не надо, может какая-то настройка есть в FIBPlus компонентах, которая позволяет автоматически закрывать detail dataset и открывает его при установке ключа?

обновление detail - таблицы Найти похожие ветки