[poli-smen]

Сообщение от govorun

Имеются 2 таблицы:
ADOTable1
ADOTable6

Нужно скопировать все строки из полей AAA, BBB, CCC таблицы ADOTable1 в таблицу ADOTable6.

Примерно так:

Код:

Datamodule3.ADOTable1.First;
while not Datamodule3.ADOTable1.Eof do
begin
  Datamodule3.ADOTable6.Append;
  Datamodule3.ADOTable6.FieldByName('AAA').AsString := Datamodule3.ADOTable1.FieldByName('AAA').AsString;
  Datamodule3.ADOTable6.FieldByName('BBB').AsFloat := Datamodule3.ADOTable1.FieldByName('BBB').AsFloat;
  Datamodule3.ADOTable6.FieldByName('CCC').AsDateTime := Datamodule3.ADOTable1.FieldByName('CCC').AsDateTime;
  Datamodule3.ADOTable6.Post;
  Datamodule3.ADOTable1.Next;
end;