Исключения

← →
Loco (2002-07-14 16:05) [0]

Приветствую всех! :))
Подскажите, если не сложно, проблема такова:
При активации формы добавляется запись в таблицы (вызывается метод append); при закрытии, для сохранения изменений, метод post. Так вот при закрытии порождается исключение следующего содержания: Project XXX.exe raised exception class EDatabaseError with message"work: Dataset not in edit or insert mode" Process stopped. Use step or Run to continue.
Кто знает как исправить, подскажите, plizzzzz!

код:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.person.post;
DM.work.post;
DM.doc.post;
DM.kontakt.post;
DM.sobstv.post;
mainmCred.Form1.Visible:=True;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
mainmCred.form1.Visible:=False;
DM.work.append;
DM.kontakt.append;
DM.doc.append;
DM.sobstv.append;
DM.person.append;
end;

← →
MBo (2002-07-14 16:17) [1]

Все же написано в тексте ошибки

← →
Loco (2002-07-14 16:19) [2]

>MBo
Так ведь он в режиме вставки, или нет?

← →
MBo (2002-07-14 16:28) [3]

Где *.Edit; ??

← →
Loco (2002-07-14 16:51) [4]

>MBo
А *.Insert не считается????
Всё равно, даже если дописать не работает, то же исключение.
А самое интересное, что запись то он добавляет!

← →
Proton (2002-07-15 19:22) [5]

возмоЖно что на одной из твоих таблиц MasterSource стоит
и когда ты в одной делаеш
append в другой он автоматически отменяется

Исключения Найти похожие ветки