选择人员对话框（如信息发布）

licanhui

如何实现根据当前登陆的人员，然后获取他以下的架构人员。也就是说我选人的时候， 只能选本人以下的架构， 而不能选其它不在管理范围的架构。 看了http://bbs.justep.com/forum.php? ... ight=SelectOrgUnits ，能否告知最后的解决方案。谢谢急！

huangyue

路过。。。很久以前写过段原始的，LZ看下适用不
var
  lBizNode: TBizNode;
  lBizNodes: TStrings;
  lOrgUnit: TOrgUnit;
  lContextCurrent: TContextCurrent;
begin
  lContextCurrent := TContextCurrent.Create(Context);
  lBizNodes := TStringList.Create;
  try
    lOrgUnit := lContextCurrent.Dept;
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(TOrgUnit(lContextCurrent.Dept).BizURL);
    if Assigned(lBizNode) then
      lBizNodes.AddObject(lBizNode.GUID,lBizNode);
    OrgComboBox1.BizTreeView.StartWithNodes := lBizNodes;
    OrgComboBox1.BizTreeView.ReloadTree;
  finally
    lBizNodes.Free;
    lContextCurrent.Free;
  end;
  end;

jjh

非常感谢！只是请问这段代码是否引用信息发布那个选人的对话框呢！还是别的控件！
或者帮忙注释一下！

jjh

现在有一个问题就是   TSystemCore.SystemInterface.SelectOrgUnits(AContext, '选择人员', lDeptURLs, lSelectOrgURLs, False,
                                          [TOrgUnitKind.boPersonMember, TOrgUnitKind.boWorkGroupMember])
这边的第三个参数，要求我一定要是TOrgUnit 类型的，而你代码里面的lBizNodes 是Tstring型的， 两个能互换吗？我试了好像不行！请高手帮帮忙！

licanhui

结贴！