[Renat]

Как из одного DBEdit сохранить данные в две таблицы??

[Yurk@]

Код:

T1.Open;
T2.Open;
T1.Edit;
T2.Edit;
T1.FieldByName('F1').asString:=DBEdit1.Text;
T2.FieldByName('F1').asString:=DBEdit1.Text;
T1.Post;
T2.Post;

[Renat]

Как я понял код должен иметь след. вид:

Код:

DataModule1.ADOTable5.Open;
DataModule1.ADOTable6.Open;
DataModule1.ADOTable5.Edit;
DataModule1.ADOTable6.Edit;
DataModule1.ADOTable5.FieldByName('имя поля').asString:=DBEdit1.Text;
DataModule1.ADOTable6.FieldByName('имя поля').asString:=DBEdit1.Text;
DataModule1.ADOTable5.Post;
DataModule1.ADOTable6.Post;

Не работает, выдает ошибку:

[Yurk@]

а так:

Код:

DataModule1.ADOTable5.Open;
DataModule1.ADOTable6.Open;
DataModule1.ADOTable5.Insert;
DataModule1.ADOTable6.Insert;
DataModule1.ADOTable5.FieldByName('имя поля').asString:=DBEdit1.Text;
DataModule1.ADOTable6.FieldByName('имя поля').asString:=DBEdit1.Text;
DataModule1.ADOTable5.Post;
DataModule1.ADOTable6.Post;

[Aristarh Dark]

Yurk@, так тоже не будет работать.
Renat, алгоритм примерно такой - связываешь DBEit с одной из таблиц как обычно, у этой таблицы обрабатываешь OnAfterPost в котором сограняешь, то что нужно во вторую таблицу.

[Renat]

Yurk@ твой вариант работает, если таблици не связаны, и не DBEdit, а простой Edit, но мне надо чтоб была связь, Aristarh Dark можно по подробнее про ваш вариант?!

[pesi]

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
adotable1.Insert;
adotable1.Edit;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
str : string;
begin
str:= dbedit1.Text; //загоняем в переменную содержимое dbedit1
adotable1.Post;
adotable2.Insert;
adotable2.Edit;
adotable2.FieldByName('familiy').AsString:=str;
adotable2.Post;
end;