Table 的小问题，我是初学者。

Question

我想把ADODataSet1的很多数据转换到Table1中
我的这段代码为什么出问题，？请大家帮忙、谢谢procedure TForm1.Button4Click(Sender: TObject);
begin
//打开jijing gbook 并且移动到末尾
Table1.Open;
while not Table1.Eof do Table1.Next;//添加没有同步的数据数据
while not ADODataSet1.Eof do
begin
  Table1.Insert;
  Table1.Fields[0].Value:=ADODataSet1.Fields[2].AsString;
  Table1.Fields[1].Value:=ADODataSet1.Fields[4].AsString;
  Table1.Fields[2].Value:=ADODataSet1.Fields[0].AsString;
  Table1.Fields[3].Value:=ADODataSet1.Fields[1].AsString;
  Table1.Fields[4].Value:=ADODataSet1.Fields[3].AsString+' 0:01:01';
  Table1.Fields[5].Value:='Face01.gif';
  Table1.Fields[7].Value:=true;
  ADODataSet1.Next;
  Table1.next;
end;
  Table1.Post;end;

Answer 1

procedure TForm1.Button4Click(Sender: TObject);
begin
//打开jijing gbook 并且移动到末尾
Table1.Open;
Table1.Last;//添加没有同步的数据数据
while not ADODataSet1.Eof do
begin
  Table1.Append;
  Table1.Fields[0].Value:=ADODataSet1.Fields[2].AsString;
  Table1.Fields[1].Value:=ADODataSet1.Fields[4].AsString;
  Table1.Fields[2].Value:=ADODataSet1.Fields[0].AsString;
  Table1.Fields[3].Value:=ADODataSet1.Fields[1].AsString;
  Table1.Fields[4].Value:=ADODataSet1.Fields[3].AsString+' 0:01:01';
  Table1.Fields[5].Value:='Face01.gif';
  Table1.Fields[7].Value:=true;
  ADODataSet1.Next;
  Table1.post;
end;
  Table1.Post;end;

Answer 2

procedure TForm1.Button4Click(Sender: TObject);
begin
//打开jijing gbook 并且移动到末尾
  Table1.Open;
  Table1.Last;//添加没有同步的数据数据
  while not ADODataSet1.Eof do
  begin
    Table1.Append;
    Table1.Fields[0].Value:=ADODataSet1.Fields[2].AsString;
    Table1.Fields[1].Value:=ADODataSet1.Fields[4].AsString;
    Table1.Fields[2].Value:=ADODataSet1.Fields[0].AsString;
    Table1.Fields[3].Value:=ADODataSet1.Fields[1].AsString;  
    Table1.Fields[4].Value:=ADODataSet1.Fields[3].AsString+' 0:01:01';
    Table1.Fields[5].Value:='Face01.gif';
    Table1.Fields[7].Value:=true;
    ADODataSet1.Next;
    Table1.post;
  end;
end;

Answer 3

1.while not Table1.Eof do Table1.Next;这句可以用table1.Last 来代替
2.while not ADODataSet1.Eof do
  begin
     Table1.Insert;这个换成table1.append
3.ADODataSet1.Next;这个保留
  Table1.next;把这个注释掉
4.如果代码报错请把错误提示帖出