【结帖】怎么捕获dataset change by another user 异常？**

lixinghua

怎么捕获dataset change by another user 异常？
当两人同时修改同一条记录时会报数据集被令一个人修改的系统错误提示，现在我们不想用系统的提示；所以现在想实现，捕获该异常不弹出系统的提示。

lixy

做一个保存按钮。
procedure TSJWG3.Button1Click(Sender: TObject);
begin
try
   DataSetBrokerBZSJJ6.DataSet.ApplyUpdates;
except
   dialogs.ShowMessage('有错误发生，不能保存');
end;
end;
但不能区分是什么错误。这个比较遗憾。

国超软件

static procedure TGYS.SafeFlowOut(Afb: TFlowBroker);
const
  cErrorMsg = 'Record not found or changed by another user';
begin
  try
    Afb.FlowControl.FlowOut(nil);
  except
    on e: Exception do
      if SameText(e.Message, cErrorMsg) then
        ShowMsg('在您浏览数据期间记录已被别人修改，请退出后再次提交', '');
  else
    ShowMsg('网络忙，请退出稍后提交', '');
  end;
end;

lixy

这样也行，判断字符串。呵呵

lixy

感谢3楼

lixinghua

多谢，OK了
结贴