数据集之间数据复制的问题

Question

Tdataset是抽象类，不能实例化，所以不能向她插入数据。
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

如果是2个Table可以这样：
Table1->Table2:
Table1.First;
while not Tabel1.Eof do
begin
  for I := 0 to Tabel1.FieldCount-1 do0D
  begin
    Table2.Append;
    Table2.Fields.Fields[0].AsVariant := Table1.FieldByName(Table2.Fields.Fields[0].FieldName).AsVariant;
  end;  
  Table1.Next;
end; 
Table2.Post;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 2

可用一个折中的方法：
先INSERT到一个adodataset中,再Tdataset:=adodataset.data

Answer 3

to  lxpbuaa(桂枝香在故国晚秋) 
又是你哈，看来你都答了我就不用再回答了：）

Answer 4

那怎么把adotable用filter过滤后的数据集取出来？

Answer 5

谢谢楼顶的朋友，你的方法我正在尝试to sxlshmity
我就是没办法insert进去啊
该怎么insert呢