Цитата:
|
Сообщение от poli-smen
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Table2.Append;
Table2.FieldByName('осталось топлива').AsFloat := Table1.FieldByName('осталось топлива').AsFloat;
Table2.Post;
Table1.Edit;
Table1.FieldByName('есть топлива').AsFloat := Table2.FieldByName('осталось топлива').AsFloat;
Table1.Post;
end; |
datamodule2.ADOTable1.FieldByName('ostatok').AsFlo at:= datamodule2.ADOTable3.FieldByName('остаток').AsFlo at;
- это строка долна пприравнять значение поля "остаток" полю "ostatok", но оно выдает ошибку, что ADOTable1. не может редактировать или всталять строки,
*???