【结】运行错误

huixiangtao

我在流程的一个功能环节上创建了一个AfterFlowOut事件，目的就是给该流程所对应的业务数据中的一个字段复制。
procedure TEVENTSOLVEFLOW.ProcUnitHKAfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
lInfo: TInfo;
lsource: TBizDataSet;
begin
lInfo := (ObjectHelper.GetFieldValue(Command.FlowControl.Func.MainForm, 'InfoBroker1') as TInfoBroker).Info;
   lsource:=linfo.DataSetByID('dsEvent');
// lsource.Open;
   lsource.Edit;
   lsource.FieldByName('eventStatus').AsString := '已解决';
   lsource.Post;
   lsource.ApplyUpdates;
end;
这段代码初始化运行时，报错，错误如下图所示，并且程序指向了lsource.ApplyUpdates;这一句。
是不是在这个函数中无法写这段代码呢，我在ProcBeforeFlowFinish事件中写这段代码是没问题的。

shangxy

你把代码写到功能窗体上的flowbroker的这个事件中看看呢？

huixiangtao

因为我的功能是继承于前一个功能，所以没有独立的功能窗体。

zklbx

把 lsource.ApplyUpdates; 这句屏蔽掉。

huixiangtao

把这句屏蔽掉，果然就不报错了，但是查看数据库发现，eventStatus这个字段的值并没有写进去。

zklbx

'dsEvent'这个数据集不是流程主表吗？

zklbx

我用流程主表试的是写进去了。

huixiangtao

是，是流程主表。

huixiangtao

但是没有写进去。

zklbx

那应该是可以的，我又测试了修改丛表的数据也成功了。楼主再检查一下数据。