А как надо? У меня вот че получилось :
procedure TDataModule1.ADOTable2AfterPost(DataSet: TDataSet);
begin
If DataModule1.ADOTable1.State <> dsEdit Then DataModule1.ADOTable1.Edit;
DataModule1.ADOTable1.FieldByName('Оклад').asStrin g := DataModule1.ADOTable2.FieldByName('Оклад').AsStrin g;
DataModule1.ADOTable1.Post;
end;
Может перепутал таблицы или еще че нибудь?
|