关于一个表中的数据导入一个表

Question

userinfoTable.FieldByName('username').AsString:=Adotable1.Fields[0].asstring;
    userinfoTable.FieldByName('address').AsString:=Edit2.Text+Adotable1.Fields[1].asstring;
    userinfoTable.FieldByName('certificate').AsString:=Adotable1.Fields[2].asstring;
    userinfoTable.FieldByName('tel1').AsString:=Adotable1.Fields[3].asstring;这样只是导了adotable1第一行的数据，怎么样做一个循环全部导完一个表中的内容，求教！

Answer 1

Adotable1.first;
while not Adotable1.eof do
begin 
  userinfoTable.append;
userinfoTable.FieldByName('username').AsString:=Adotable1.Fields[0].asstring;
  userinfoTable.FieldByName('address').AsString:=Edit2.Text+Adotable1.Fields[1].asstring;
  userinfoTable.FieldByName('certificate').AsString:=Adotable1.Fields[2].asstring;
  userinfoTable.FieldByName('tel1').AsString:=Adotable1.Fields[3].asstring;
  userinfoTable.post;
  Adotable1.next;
end;

Answer 2

  Adotable1.first;
  while not Adotable1.eof do
  begin  
    userinfoTable.append;
    userinfoTable.FieldByName('username').AsString:=Adotable1.Fields[0].asstring;
    userinfoTable.FieldByName('address').AsString:=Edit2.Text+Adotable1.Fields[1].asstring;
    userinfoTable.FieldByName('certificate').AsString:=Adotable1.Fields[2].asstring;
    userinfoTable.FieldByName('tel1').AsString:=Adotable1.Fields[3].asstring;
    userinfoTable.post;
    Adotable1.next;
  end;