Цитата:
|
Сообщение от lmikle
Код:
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. Может все-таки книжку какую умную почитать сначала, а потом уже программировать? |
Спасибо, работает на ура! Только почему-то строка копируется из таблицы 1 в таблицу 2, было бы не плохо если бы удалялась из первой таблицы
P.S. Книги начал читать)