我要把一个一条记录转移到另一个相同的表暂时存放，

procedure TForm1.Button4Click(Sender: TObject);

var

fieldno:Integer;

begin

fieldno:=0;

Table4.AppendRecord([nil,nil,nil]);

  for fieldno:=0 to Table4.fieldcount-1 do  begin

    Table4.Edit;

    Table4.Fields[fieldno].text :=table2.Fields[fieldno].text ;

    Table4.Post;

    Table4.Refresh;

    end;

table2.Delete;

end;

表2 放到 表4

在图中3和4的地，因为3处我删除了一个字段，总是出错。如果有不想显示 的内容，在dbgrid中删除就可以 了。