【结】运行错误

huixiangtao

哎，我也没办法啊，只写post就是保存不了数据。
我无奈了，改了个事件：改成了beforeflowout，这样就行了。

zklbx

哦，学习了。

shangxy

我用你1楼的代码和下面的都可以正常流转。还有其他的地方写过代码么？
或者你继承过来一个主窗体写到FLowbroker的这个事件中。

写到BeforeFlowout时机和afterflowout不一样，如果你点了流转，然后在流转对话框取消了那么状态也改变了。

procedure TYWLC2.ProcUnitRKAfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
lInfo: TInfo;
lsource: TBizDataSet;
begin
lInfo := Command.FlowControl.Func.Context.Children[0].Owner as TInfo;
  //lDataSet := lInfo.DataSetByID('BZSJJ1');
//lInfo := (ObjectHelper.GetFieldValue(Command.FlowControl.Func.MainForm, 'InfoBrokerFLOWTEST') as TInfoBroker).Info;
   lsource:=linfo.DataSetByID('BZSJJ1');
// lsource.Open;
   lsource.Edit;
   lsource.FieldByName('zd2').AsString := '已解决';
   lsource.Post;
   lsource.ApplyUpdates;
end;

huixiangtao

谢谢，结贴！