【搞定】在我的电脑里面系统正常，但是在客户那里出错

webcrow

我做完一张单子，保存成功后，点击审核按钮报错
procedure TREPORTLIST.btnCheck1Click(Sender: TObject);
var
  lContextCurrent:TContextCurrent;
begin
  if cbGoodsName.Text.Trim='' then
    exit;
  if GetBillCheckState('JYBGD','BGDH',dsbCCBGD.DataSet.FieldByName('BGDH').AsString,1)=1 then
    exit;
  if Forms.Application.messagebox('您确定要审核这张单据吗？','提示',MB_OKCANCEL+mb_iconquestion)<>Business.Forms.Controls.mrOK then
    exit;

  dsbCCBGD.DataSet.Edit;
  try
    lContextCurrent:=TContextCurrent.Create(Self.Context);
    dsbCCBGD.DataSet.FieldByName('SHR').AsString:=lContextCurrent.Operator.DisplayName;
  finally
    lContextCurrent.Free;
  end;
  dsbCCBGD.DataSet.FieldByName('SH').AsInteger:=1;
  dsbCCBGD.DataSet.FieldByName('State').AsString:='出厂检验报告已审核';
  dsbCCBGD.DataSet.FieldByName('SHSJ').AsDateTime:=Business.Data.SysSrv.SysService.Time;
  dsbCCBGD.DataSet.ApplyUpdates;

提示这个ApplyUpdates出错，但是只有一个用户在用，而且肯定是有这张单子的。

lixy

设置数据集的更新选项，更新模式为主键就可以解决了。

按照这个错误字样，查找bbs的老帖子，有很多这样的帖子。

webcrow

搞定，谢谢，兄弟这两天有点晕，呵呵，忘记了搜索老贴步骤

alang

看看Wiki，上面有更详细的说明
http://wiki.justep.cn/RecordNotFoundOrChangedByAnotherUser