多人处理问题**

xhsoft

代码取的呀

shangxy

把窗体的完整代码贴出来看看。

xhsoft

procedure TTZ.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask:TFlowTask;
  lOrgURL: TOrgURL;
  lStr:string;
  zxz,dl:string;
begin
   lFlowTask := Command.FlowTasks.FindFlowTask('CKTZ');
   //根据任务环节查找任务
  if lFlowTask <> nil then
    lFlowTask.Executors.Clear;  //删除缺省执行者
   dsbjs.DataSet.Open;
  dsbjs.DataSet.First;
  while not dsbjs.DataSet.Eof do
  begin
    dsbjs.DataSet.Edit;
    zxz := dsbjs.DataSet.FieldByName('jsz').AsString;
    dsbjs.DataSet.Post;
    //lStr:= zxz;
    if lFlowTask <> nil then
    begin
      lOrgURL := TOrgURL.Create('','',zxz); //部门、岗位、人员创建组织单元
      lFlowTask.Executors.Add(lOrgURL);//添加执行者
    end;
    dsbjs.DataSet.Next;
  end;
end;

zfang

lOrgURL := TOrgURL.Create('','',zxz);
这是给的人员
dsbjs.DataSet这个数据集中有重复的值。你sql中加一个distinct然后再试试。