捕获错误

怎么样捕获ClientDataSet用ApplyUpdates(0)的错误，并提示出来. 问题点数：20、回复次数：2Top

1 楼qiume（好好回贴，天天胖胖）回复于 2003-12-01 08:51:29 得分 20

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   DB,   DBClient;  
   
  type  
      TForm1   =   class(TForm)  
          ClientDataSet1:   TClientDataSet;  
          procedure   ClientDataSet1ReconcileError(DataSet:   TCustomClientDataSet;  
              E:   EReconcileError;   UpdateKind:   TUpdateKind;  
              var   Action:   TReconcileAction);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.ClientDataSet1ReconcileError(  
      DataSet:   TCustomClientDataSet;   E:   EReconcileError;  
      UpdateKind:   TUpdateKind;   var   Action:   TReconcileAction);  
  begin  
      ShowMessage(E.Message);           //   在这个事件中加入这句就OK  
  end;  
   
  end.  
  Top

2 楼cjsh（cjsh）回复于 2003-12-01 09:46:09 得分 0

ApplyUpdates(0)更新不会显示错误你改成ApplyUpdates(-1)Top

相关问题

• 捕获
• applyupdates
• clientdataset
• ereconcileerror
• reconcileerror
• tcustomclientdataset
• tupdatekind
• treconcileaction
• updatekind
• tform

• 帖主：feiboy
• qiume

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载