【结贴】帮忙看一下这段代码

qdboy

if SysUtils.SameText(FuncBroker.Func.ID,'BMFZRSHFUNC') then{当前功能}
  begin
     DeptID:=dsb_Contract.DataSet.FieldByName('FDept').AsString;{部门ID}
     Post:='JL';{岗位}
     NextID:='CGFGSJLSHFUNC';{下一个要流转到得功能}
     try
        lQuery:=TQuery.Create(nil);
        lQuery.ConnectionString:=Query1.ConnectionString; //  'Biz:\SYSTEM\SYSTEM.DATABASE';//SysUtils.Format('DatabaseURL1=%s', [DatabaseURL1]);
        lQuery.Close;
        lQuery.CommandText:='Select FPERSON from TORGSYSTEM where FKIND=''.PSM'' and FPOSITION=''JL'' and FDEPT='+''''+DeptID+'''';//'+SysUtils.QuotedStr(DeptID)+'''  ;
        lQuery.Open;
        if lQuery.RecordCount>0 then
        begin
           Person:=lQuery.FieldByName('FPERSON').AsString;
        end;
     finally
        lQuery.Free;
     end;
     lFlowTask:=Command.FlowTasks.FindFlowTask(NextID);
     if lFlowTask<>nil then
     begin
        lFlowTask.Executors.Clear;
        lRange:=Org.OrgExpr.OrgChildren(Org.OrgExpr.OrgKey(DeptID,Post,Person),'',True,True);
        lFlowTask.AllowExecutorRange:=lRange;
        lFlowTask.ExecutorRange:=lRange;
        lFlowTask.ReLoadAllowExecutors;
        lFlowTask.ReLoadExecutors;
     end;
  end;
end;
帮忙看一下这段代码 走到lFlowTask.Executors.Clear;
的时候就会出现这个错误

atiger

不会吧，lFlowTask.Executors.Clear; 这个不应该报这样的错误的，你屏蔽这个就ok了？

qdboy

结贴