Как перенести данные строки из одной таблицы в другую(или копировать)
Нашел этот код в интернете, не помогает
Код:
procedure TForm1.btn1Click(Sender: TObject);
var I:integer;
begin
DataModule3.ADOTable1.Append;
For I := 0 To DataModule3.ADOTable1.Fields.Count-1 Do
if DataModule3.ADOTable1.Fields[i].FieldName <> 'Код' Then
DataModule3.ADOTable1.Fields[i].Value := DataModule3.ADOTable1.Fields[i].Value;
DataModule3.ADOTable1.Post;
Админ: Пользуемся тегами при оформлении кода!
(P.s я чайник)