Код

uses konsul; ................................. procedure TForm2.Button1Click(Sender: TObject); begin konsul.Form1.Table1.Active := true; try     konsul.Form1.Table1.Insert;     konsul.Form1.Table1.FieldByName('id').AsInteger := StrToInt(Edit1.Text);     konsul.Form1.Table1.FieldByName('inn').AsString := Edit2.Text;     konsul.Form1.Table1.FieldByName('kpp').AsString := Edit3.Text;     konsul.Form1.Table1.FieldByName('name').AsString := Edit4.Text;     konsul.Form1.Table1.FieldByName('date').AsDateTime := Edit5.Date;     konsul.Form1.Table1.FieldByName('summa').AsInteger := StrToInt(Edit6.Text);     konsul.Form1.Table1.FieldByName('npp').AsInteger := StrToInt(Edit7.Text);     konsul.Form1.Table1.FieldByName('dpp').AsDateTime := StrToDate(Edit8.Text);     if konsul.Form1.Table1.Modified then begin          konsul.Form1.Table1.FlushBuffers;          konsul.Form1.Table1.Post;     end;     close; except     showmessage('Сохранение не удалось'); end; end;

В чем ошибка? Отрабатывается except. Если его убрать пишет: "Table1: Dataset not in edit or insert mode". Но запись в таблицу добавляет и сохраняет. Если добавлять записи в непосредственно в Grid'е с помощью Navigation, то все ОК.
Таблица dBase, pc866, работаю через стандартный драйвер БДЕ

А на каком операторе происходит Exception?

Код

procedure TForm2.Button1Click(Sender: TObject); begin konsul.Form1.Table1.Active := true; try    konsul.Form1.Table1.Insert;    konsul.Form1.Table1.FieldByName('id').AsString := Edit1.Text;    konsul.Form1.Table1.FieldByName('inn').AsString := Edit2.Text;    konsul.Form1.Table1.FieldByName('kpp').AsString := Edit3.Text;    konsul.Form1.Table1.FieldByName('name').AsString := Edit4.Text;    konsul.Form1.Table1.FieldByName('date').AsDateTime := Edit5.Date;    konsul.Form1.Table1.FieldByName('summa').AsString := Edit6.Text;    konsul.Form1.Table1.FieldByName('npp').AsString := Edit7.Text;    konsul.Form1.Table1.FieldByName('dpp').AsString := Edit8.Text;    konsul.Form1.Table1.Post;    konsul.Form1.Table1.FlushBuffers;    konsul.Form1.Table1.close; except    on e:exception do      showmessage(e.message); end; end;

I'am sorry Vit, но предложенный тобой код ошибки не генерит, просто он не заносит данные и после закрытия окна грид в котором до этого отражались записи таблицы, в которую и добавляли запись становится пустым (таблица не меняется)

Он делает (не понятно почему) TTable не активным, но после принудительной активации записей в ней нет. И еще если FlushBuffer делать до Post, то генерится ошибка что мол DataSet не в состоянии для insert or edit.
Причем на таблице Paradox все работает, а здесь нет

Мой код правильный. Если он не работает, то по каким-то другим причинам:

1) Указан неправильный alias, имя таблицы и т.п.
2) Во время выполнения кода какая-то другая программа, событие и т.п. вмешивается и что-то делает с этой таблицей.
3) Несовместимость каких-то типов.
5) Программа сразу после этого кода прерывается по halt и т.п. (Table1.FlushBuffers - обеспечивает сброс буфферов, но не обеспечивает физический сброс любых закэшированных данных на диск)


Пройдись пошагово, проверь что заносится в каждое поле и т.д. После Post попробуй вывести куда-нибудь значения полей текущих записей и т.д.