Цитата:
|
Сообщение от lmikle
Ну, например так:
Код:
ADOQuery2.Append;
For I := 0 To ADOQuery1.Fields.Count-1 Do
ADOQuery2.Fields[i].Value := ADOQuery1.Fields[i].Value;
ADOQuery2.Post;
Это если кол-во и порядок полей одинаков и нет BLOB полей + надо сделать ADOQuery2 редактируемым. Если хоть одно условие не выполняется, то надо больше информации. Что-то всегда можно придумать. |
Пытаюсь с твоим кодом выдает компилятор:
[dcc32 Error] Unit2.pas(76): E2003 Undeclared identifier: 'I'
Код:
procedure TForm2.Button3Click(Sender: TObject);
begin
form11.ADOQuery1.Append;
For I := 0 To form2.ADOQuery1.Fields.Count-1 Do
form11.ADOQuery1.Fields[i].Value := form2.ADOQuery1.Fields[i].Value;
form11.ADOQuery1.Post;
end;
Что я не так наделал?
