![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Исключения [D6, WinME]
Loco © (2002-07-14 16:05:00)Приветствую всех! :))
Подскажите, если не сложно, проблема такова:
При активации формы добавляется запись в таблицы (вызывается метод 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;
Proton (2002-07-15 19:22:00) [1]возмоЖно что на одной из твоих таблиц MasterSource стоит
и когда ты в одной делаеш
append в другой он автоматически отменяется
Loco (2002-07-14 16:51:00) [2]>MBo
А *.Insert не считается????
Всё равно, даже если дописать не работает, то же исключение.
А самое интересное, что запись то он добавляет!
MBo (2002-07-14 16:28:00) [3]Где *.Edit; ??
Loco (2002-07-14 16:19:00) [4]>MBo
Так ведь он в режиме вставки, или нет?
MBo (2002-07-14 16:17:00) [5]Все же написано в тексте ошибки