数据集提交截获错误

atiger

try
  DataSet.ApplyUpdates;
except
  dialogs.showmessage('出错了')
end;

atiger

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;