|

楼主 |
发表于 2008-1-28 13:38:03
|
显示全部楼层
这个粗心导致的问题已经解决了,但是接下来又出问题了
lFlowTask := Command.FlowTasks.FindFlowTask('WSFCJ');
if lFlowTask <> nil then
begin
lFlowTask.Executors.Clear; //删除缺省执行者
iquery:=TQuery.Create(nil);
iquery.ConnectionString:='DATABASEURL=Biz:TZERPTZOATZOADB.Database';
iquery.CommandText:='select Participants from BG_NBHYCJR where MeetingID = '''+FlowBroker1.FlowControl.Flow.ID+'''';
iquery.Open;
for i:= 0 to iquery.RecordCount - 1 do
begin
str:=iquery.FieldByName('Participants').AsString;
lOrgURL := TOrgURL.Create('','',str ); //部门、岗位、人员创建组织单元
lFlowTask.Executors.Add(lOrgURL);//添加执行者
end;
end;
|
|