一个关于数据库遍历的问题(100分)

我有一段程序如下：
Table1.open;
Table1.edit;
Table2.open;
Table2.first;
if not Table2.Eof then
begin
Table1.FieldByName('No').AsInteger:=Table2.FieldByName('No').AsInteger;
Table1.FieldByname('Name').AsString:=Table2.FieldByName('Name').AsString;
Table1.Post;
Table1.Append;
Table2.Next;
end;
Table1.Close;
Table2.Close;
我想将Table2中所有记录的‘No’和‘Name’两个字段复制到Table1的‘No’和‘Name’
两个字段，我用上述的程序只能复制一个记录，不知为什么？请求你的帮助！！！谢谢！

Table1.open;
Table2.open;
Table2.first;
if not Table2.Eof then
begin
Table1.Append;
Table1.FieldByName('No').AsInteger:=Table2.FieldByName('No').AsInteger;
Table1.FieldByname('Name').AsString:=Table2.FieldByName('Name').AsString;
Table1.Post;
Table2.Next;
end;
Table1.Close;
Table2.Close;

这个问题我已经解决了,谢谢各位!!!

没有用循环修改,当然只能修改一条了,哈哈

接受答案了.