【搞定】2611,list index out of bounds(0)错误**

涛声依旧

根据员工ID获取员工部门、岗位，代码启动流程，在断点处（lPersonMember :=TOrgUnit(lPersonMembers.Items[0]);
）报错，不知为何？版本2611

AFlowID:=DataSetBroker3.DataSet.FieldByName('ID2').AsString;  //流程ID
                 try //2 begin
                       lPersonMembers := TList.Create;
                       OrgSys.OrgSystem.GetPersonMembers(id_ry, lPersonMembers);
                        lPersonMember :=TOrgUnit(lPersonMembers.Items[0]);
                        id_gw:=lPersonMember.Parent.id;
                        id_bm:=lPersonMember.Parent.Parent.id;
                        ADept :=id_bm;//部门
                        ARole :=id_gw;  //岗位
                        APerson :=id_ry;// 人员
                        UserStartFlow(AFlowUrl, ADept, ARole, APerson, AStartProc, AFlowID, ASubject, ADescription);
                 finally
                        lPersonMembers.Free;
                 end; //2 end

yancm

在前面加这句
if lPersonMembers.Items.count>0 then
begin
lPersonMember :=TOrgUnit(lPersonMembers.Items[0]);
...

涛声依旧

试了一下，编译没有通过，在
f lPersonMembers.Items.count>0 then
因为lPersonMembers.Items没有count属性

yancm

if lPersonMembers.count>0 then

涛声依旧

按照楼上的改程序为
OrgSys.OrgSystem.GetPersonMembers(id_ry, lPersonMembers);
if lPersonMembers.count>0 then
begin
                        lPersonMember :=TOrgUnit(lPersonMembers.Items[0]);
                        id_gw:=lPersonMember.Parent.id;
                      .......
end
运行发现，错误没有了，但是lPersonMembers.count>0 永远都是false，程序永远都不会进入到
begin   ... end中间，这在现实中是不可能的，我怀疑是OrgSys.OrgSystem.GetPersonMembers(id_ry, lPersonMembers);函数出了问题，有没有别的函数用？

涛声依旧

我查到了，OrgSys.OrgSystem.GetPersonMembers(id_ry, lPersonMembers);中id_ry我取的是GUID，所以永远不可能正确的进入下一步

请结题