代码如下:begin
dsb_ps.DataSet.Open;
dsb_ps.DataSet.First;
while not dsb_ps.DataSet.Eof do
begin
dsb_ps.DataSet.Edit;
zxz := dsb_ps.DataSet.FieldByName('psrid').AsString;
dsb_ps.DataSet.Post;
//lStr:= zxz;
lFlowTask := Command.FlowTasks.FindFlowTask('dzwjps');//根据任务环节查找任务
if lFlowTask <> nil then
begin
lFlowTask.Executors.Clear; //删除缺省执行者
lOrgURL := TOrgURL.Create('','',zxz); //部门、岗位、人员创建组织单元
lFlowTask.Executors.Add(lOrgURL);//添加执行者
end;
dsb_ps.DataSet.Next;
end;
end;
这样试一下呢,是不是这个效果?
lFlowTask := Command.FlowTasks.FindFlowTask('dzwjps');//根据任务环节查找任务
if lFlowTask <> nil then
lFlowTask.Executors.Clear; //删除缺省执行者
//
dsb_ps.DataSet.Open;
dsb_ps.DataSet.First;
while not dsb_ps.DataSet.Eof do
begin
dsb_ps.DataSet.Edit;
zxz := dsb_ps.DataSet.FieldByName('psrid').AsString;
dsb_ps.DataSet.Post;
//lStr:= zxz;
if lFlowTask <> nil then
begin
lOrgURL := TOrgURL.Create('','',zxz); //部门、岗位、人员创建组织单元
lFlowTask.Executors.Add(lOrgURL);//添加执行者
end;
dsb_ps.DataSet.Next;
end;