【结贴】代码添加多个执行者列表

zhjkill

// Remark(人员ID)  Entry_of_people(岗位ID) Entry_sector(部门ID)
    lQuery.CommandText := 'SELECT DISTINCT Entry_sector, Remark, Entry_of_people From BUSINESS_DATA where Place='''+DataSetBroker1.DataSet.FieldByName('SCLH').AsString+''' ';
    lQuery.Open;

    lFlowTask := Command.FlowTasks;
    //lFlowTask := Command.FlowTasks.FindFlowTask(XMJLSP);//根据任务环节查找任务
    if lFlowTask <> nil then
    begin
      lFlowTask.Executors.Clear;   //删除缺省执行者
      lFieldDEPT := lQuery.Fields[0];
      lFieldPOSITION := lQuery.Fields[2];
      lFieldPERSON := DataSetBroker1.DataSet.FieldByName('XMFZR');
      lOrgURL := TOrgURL.Create(lFieldDEPT.AsString, lFieldPOSITION.AsString, lFieldPERSON.AsString); //部门、岗位、人员创建组织单元
      lFlowTask.Executors.Add(lOrgURL);//添加执行者
    end;
上面代码添加一个执行者列表，怎么添加多个执行者列表

zfang

lFlowTask.Executors.Add(lOrgURL);//添加执行者
执行多次就可以。

zhjkill

结