如何设置table的状态

Question

procedure TBaseNumOpeForm.SpeedButton9Click(Sender: TObject);
var
  i:integer;
begin
  with DataModule1.Table1 do
  begin
    for i:=1 to RecordCount+1 do
    begin
      RecNo := i;
      Edit;
      Fields[0].AsInteger := i;end;
      Post;
    end;
  end;
end;

Answer 1

 begin
    Edit;
    First;这一段应该先First然后Edit,for i:=1 to RecordCount+1 do
      begin
        Fields[0].AsInteger:=i;
        Next;    <<<<<<<<------------在每个Next后面都应该有个Edit
      end;

Answer 2

据我看来，
button1.action:action1; button1.onclick:<无 or action1execute>--此时调用action1execute
button1.action:action1; button1.onclick:button1click--此时调用button1click
另：你的用来refresh的action是否tdatasetrefresh？是的话，只要你重写此action的onexecute，此action的缺省功能就失效了