【结贴】代码创建子流程问题！**

//创建子流程
procedure TMainForm.BaseFlowBrokerCreateSubFlow(Sender: TObject; Command: TCreateSubFlowCommand);
var
  lSubFlowInfo : TSubFlowInfo;
  lFlowTask    : TFlowTask;
  lGUID        : string;
  lSamNo,lItem : string;
begin
      //根据检测项目生成子任务
      lSamNo := InfoBroker.Info.DataSetByID('TasksInfo').FieldbyName('SamNo').AsString;
      if not InfoBroker.Info.DataSetByID('TestProject').Active then
         InfoBroker.Info.DataSetByID('TestProject').Open;
      InfoBroker.Info.DataSetByID('TestProject').First ;
      while not InfoBroker.Info.DataSetByID('TestProject').Eof do
         begin
            lGUID := InfoBroker.Info.DataSetByID('TestProject').FieldbyName('GUID').AsString;
            lItem := InfoBroker.Info.DataSetByID('TestProject').FieldbyName('TestProject').AsString;
            //创建子流程实例
            lSubFlowInfo := Command.SubFlowInfos.Add;      
            lSubFlowInfo.FlowValue.IDs.Add(lGUID);            //给子流程的实例传值
            lSubFlowInfo.FlowValue.Subject := lSamNo          //子流程标题赋值
            lSubFlowInfo.EntryFlowTasks.Assign(Command.EntryFlowTasks);
            lFlowTask := lSubFlowInfo.EntryFlowTasks.FindFlowTask('TASKASSIGNPSN_FUNC');//根据任务环

节查找任务
            lFlowTask.Subject := '任务分配'+lSamNo +'【'+lItem+'】';            //流程主题

            InfoBroker.Info.DataSetByID('TestProject').Next;
         end;
end;

在X3 2809中没有问题，在2918和2936中，流转的时候都下不去，错误提示如图：

断点跟踪到标准风格主窗体中下面代码：

顶一下，快沉没了！～

麻烦给看一下吧！！

再顶一下！！！！

gaihl

先在１楼代码中设下断点．执行到断点处后，单步执行，看到哪一句出的错

lixin

顶！！

atiger

请问，lixin 你在顶啥，能明确一下吗？
另外，你跟楼主是一个公司的吗？

Akon

问题出在这段代码上
            lSubFlowInfo.EntryFlowTasks.Assign(Command.EntryFlowTasks);
不能把当前EntryFlowTasks赋给子流程的EntryFlowTasks

lSubFlowInfo.EntryFlowTasks.Assign(Command.EntryFlowTasks);
这段代码什么意思，能给讲讲么？
怎么在http://bbs.justep.com/forum.php? ... ight=EntryFlowTasks给出的代码中写上了呢？