dbgrid 進入 新增 狀態時條件不成立時 如何讓它回覆到非新增狀態 ? ADOQueryBeforeInsert if MessageDlg('確定新增一筆',mtconfirmation,[mbYes,mbNo],0)=mrYes then begin ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select max(chknumber) as totnum from mytest'; ADOQuery1.Open; if ADOQuery1.FieldByName('totnum').IsNull then Si:=1 else Si:=(ADOQuery1.FieldByName('totnum').AsInteger 1); ADOQuery1.Close; DBGrid1.SelectedIndex:=1; end; 我在 ADOQuery1AfterInsert if (ADOQuery1.FieldByName('chknumber').AsInteger = 0) or (Length(Trim(ADOQuery1.FieldByName('chkdate').AsString)) = 0) then begin ADOQuery1.cancel; (或adoquery1.Refresh) 會出現錯誤

Hi lilisn,    Add some code on BeforePost Event 

procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
begin
if (DataSet.FieldByName('chknumber').AsInteger = 0) or (Length(Trim(DataSet.FieldByName('chkdate').AsString)) = 0) then
  Abort;
end;

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

------
Fishman

您好﹗    除了Fishman兄提到的該把取消新增的程式控制寫在ADOQuery1元件的BeforePost 事件中之外﹐從您描述的BeforeInsert程式碼中還看到一個錯誤如下﹕

begin
  ADOQueryBeforeInsert
  if MessageDlg('確定新增一筆',mtconfirmation,[mbYes,mbNo],0)=mrYes
    then 
    begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Text:='select max(chknumber) as totnum from 
        mytest';
      ADOQuery1.Open;
      if ADOQuery1.FieldByName('totnum').IsNull then 
        Si:=1
      else
        Si:=(ADOQuery1.FieldByName('totnum').AsInteger 1);
      ADOQuery1.Close;
      DBGrid1.SelectedIndex:=1;
end;
//以上紅色處語句應刪除掉﹐因為將ADOQuery1元件Close掉﹐當新增時資
料集就不是處于dsBrowse的State（狀態）﹐故會引起錯誤﹒

========================= 我是您的朋友﹐有您真好﹗ ========================= 發表人 - cashxin2002 於 2004/11/16 17:01:57

------
忻晟

版主您好 Abort; 還是停至 dsinsert 如何讓DBGrid 回覆到 dsBrowse 謝謝

ADOQuery1.cancel; try try it Kadee_BigRed

------
Kadee/BigRed Ent.
www.tw165.com

您好﹗    補充一些﹕ 當您在BeforePost事件中使用Abort方法﹐將停止當前事件中Abort之后的程式碼 運行﹐如果您需要將資料集元件還原到dsBrowse的State﹐您可在Abort方法之前 加上Cancel方法﹐如下﹕

procedure TForm1.ADOQuery1BeforePost(DataSet: TDataSet);
begin
if (ADOQuery1.FieldByName('chknumber').AsInteger = 0) or (Length(Trim
  (ADOQuery1.FieldByName('chkdate').AsString)) = 0) then
  begin
    ADOQuery1.Cancel;
    Abort;
    //此處加入Abort的目的是控制資料集元件不做Post的動作﹐因為在
    Cancel方法之后﹐資料集元件又處于dsBrowse的State﹐此時﹐如果再做
    Post的動作﹐就會出錯了
  end;
end;

========================= 我是您的朋友﹐有您真好﹗ ========================= 發表人 - cashxin2002 於 2004/11/16 18:36:08

------
忻晟

可以了 Thank All