請問大家: 我在TADOQuery的OnWillChangeRecord事件撰寫程式碼, 但若發生錯誤的時候, 並無法產生錯誤訊息, 而是被吃掉了, 怎麼會這樣? procedure TfmORDERS.ADOQueryWillChangeRecord(DataSet: TCustomADODataSet; const Reason: TEventReason; const RecordCount: Integer; var EventStatus: TEventStatus); begin if Reason = erUpdate then begin try ADOQuery1.SQL.Text := 'UPDATE Product SET ' 'Quanity = Quanity :UpdateQuanity ' 'WHERE ProductID = :ProductID '; ADOQuery1.Parameters.ParamByName('UpdateQuanity').Value := DataSet.FieldByName('Quantity').NewValue; ADOQuery1.Parameters.ParamByName('ProductID').Value := DataSet.FieldByName('ProductID').NewValue; ADOQuery1.ExecSQL; except ShowMessage('有錯誤!'); raise; end; end; end; 在程式中的SQL若執行有問題, 就停在ExceSQL這一行, 並不會跑到Except那一段? 謝謝!

inwuinfo 你好     OnWillChangeRecord事件中有個參數var EventStatus: TEventStatus就是給你通知AdoQuery在此事件中發生了什麼事的參數，試著改成如下程式架構

procedure TfmORDERS.ADOQueryWillChangeRecord(DataSet: TCustomADODataSet;
     const Reason: TEventReason; const RecordCount: Integer;
     var EventStatus: TEventStatus);
begin
  if Reason = erUpdate then Begin
    try
      ........
      EventStatus := esOK ; // 正常處理完成
    except
      raise; 
      EventStatus := esErrorsOccured ; // 有錯誤發生
      // TEventStatus = (esOK, esErrorsOccured, esCantDeny, esCancel, esUnwantedEvent); 
      // 依實際狀況選用一個
    end;
  end;
end;