大大们好，又有问题麻烦各位了，请您多多指点 当我们更改了某笔记录时，此时改变后的数据并没有被写入数据库，必须调用<>>方法来将数据写入数据库。 < class="code"> procedure TForm1.Button1Click(Sender: TObject); begin ADOTable1.Post; end; 但是，如果我没有改变数据字段，又偏偏按下Button去保存数据的话，此时程式就会出错，如下图: 因此在调用Post方法之前必须先检验一下记录目前的状态(State),所以程式改为:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ADOTable1.State = dsEdit then
  begin
    ADOTable1.Post;
    ShowMessage('数据已经被写入');
  end;
end;

到这里，好象已经结束了。我的问题就出在这里，这样做会出现按下保存的Button后，数据不能及时的写入数据库(ShowMessage里的内容没有出现)，需要浏览一下前一笔数据才能被写入，很麻烦！而原来不加ADOTable1.State时就不会这样啊！请大大们指点我该如何解决这个问题，是不是还有其他的好方法呢？(新手提的问题很幼稚，请大大您见怪不怪） < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？

Hi bigdogchina,    試試以下寫法

procedure TForm1.Button1Click(Sender: TObject);
begin
    TRY
        ADOTable1.Post;
    EXCEPT
        ShowMessage('Post Error !!');
    END;
end;    或是    procedure TForm1.Button1Click(Sender: TObject);
begin
    TRY
        IF ADOTable1.State in [dsEdit,dsInsert] then
            BEGIN
                ADOTable1.Post;
                ShowMessage('Update or Insert successfully !!')
            END;
    EXCEPT
        ShowMessage('Post Error');
    END;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

ShowMessage里的内容没有出现 当然会不显示，内容只有当ADOTable1处于编辑状态才会出现，所以换换，试试看 procedure TForm1.Button1Click(Sender: TObject); begin if ADOTable1.State = dsEdit then begin ADOTable1.Post; end else ShowMessage('数据已经被写入'); end; ——行径窄处，留一步与人行——

非常感谢Fishman,deity两位大大精彩的回答，问题已经解决了！答题分已奉上，乞望以后能多多的指点我，谢谢 < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？