【结贴】[请求]怎么取当前登陆者所在部门的全体成员**

shangxy

如果这些存到表中的字段时候就用sql语句distinct就可以，如果存成字符串就循环判断一下是否存在同名，有就不存了。

Crazy_wen2006

procedure TKQBD.buttononclick(Sender: TObject);   
var
   Os:Business.Model.Org.TOrgSystem;
   olist:Business.Model.Org.TOrgURLs;
   i:integer;
   lDept: Business.Model.Org.Torgunit ;
   lOrgUnit :Business.Model.Org.Torgunit;
   lBizUrl :TBizURl;
begin  
olist:= Business.Model.Org.TOrgURLs.Create;
     os:=   Business.Model.Org.TOrgSystem.Create;
     lBizUrl :=TBizUrl.Create;
     os.GetOrgURLsByOrgExpr('OrgChildren(orgkey(''dqzy'','''',''''),orgcondition(''*.psm'','''',''''),true,false)',olist);
     for i:=0 to olist.Count-1 do
     begin
       lbizurl.URL := olist.BizURL.URL ;
       lOrgUnit :=org.OrgSys.OrgSystem.GetUnit(lBizURL);
       dsbm.DataSet.Append;
       dsbm.DataSet.FieldByName('xm').asstring:=lOrgUnit.DisPlayName;
       dsbm.DataSet.ApplyUpdates;
      end;
      os.free;
      olist.free ;
      lBizUrl.Free;
     end;
我的代码是这样写的，取出的姓名存在datagrid中以字符串形式存成一列，因为我部门下面还有部门，有的人在多个下面，所以取的时候会出现重复的。应该把上面代码怎么改进，能实现只取本部门下的人员，不取下一级部门下的成员，且不重复，谢谢

lixy

应该把上面代码怎么改进，能实现只取本部门下的人员，不取下一级部门下的成员，且不重复，谢谢
-----
修改组织机构公式
------------

有的人在多个下面，所以取的时候会出现重复的。
------------------
用人员的id去对比

shangxy

楼主还有问题么？

Crazy_wen2006

结贴，谢谢诶