Цитата:
Сообщение от Ekler1
как его правильно написать под этот код?
...
я уже всю голову себе сломал(
|
Код:
procedure TForm2.Button3Click(Sender: TObject);
var I:integer;
begin
form11.ADOQuery1.Append;
For I := 0 To form2.ADOQuery1.Fields.Count-1 Do
if form11.ADOQuery1.Fields[i].FieldName <> 'Код' Then
form11.ADOQuery1.Fields[i].Value := form2.ADOQuery1.Fields[i].Value;
form11.ADOQuery1.Post;
end;
PS. Может все-таки книжку какую умную почитать сначала, а потом уже программировать?