varcdsEmp:TClientDataSet;//保存
procedure  TfrmEmp.btnSave(Sender:  TObject);
begin  
cdsEmp.RemoteServer.AppServer.BegTrans; 
 try    cdsEmp.ApplyUpdates(0);  //更新错误在这一句发生,但是我却永远也捕获不到,                             //我想自已在异常处理里显示这里发生的错误信息该怎么办?    cdsQrObj.RemoteServer.AppServer.ComTrans; 
 except    on  E:Exception  do  
  begin     
 cdsEmp.RemoteServer.AppServer.RobTrans;   
   Application.MessageBox(pchar('存盘失败!'+#13#10+'错误信息:'+E.Message),'提示',MB_OK+MB_ICONEXCLAMATION);    
  Abort;    
end; 
 end;
end;