具体语句如下:with adotable1 do
begin
  TableName := 'A';
  Open;
  Edit;
  FieldByName('name').asstring := 'test';
  Post;
  Close;  Open;
  while not eof do
  begin
    ShowMessage(FieldByName('name').asstring);
    Next;
  end;
end;有问题了!