捕获错误

Question

怎么样捕获ClientDataSet用ApplyUpdates(0)的错误，并提示出来.

Answer 1

unit Unit1;interfaceuses
  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.

Answer 2

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