【结贴】[请求]关于OrgTreeView**

rzport_jqf

如何让 OrgTreeView 只显示人员?

shangxy

设置orgtreeview的showoption属性，看一下用户手册第10章

lixy

procedure TMainForm.Button2Click(Sender: TObject);
var
  lBizNode: TBizNode;
  lBizURL: TBizURL;
  i : integer;
begin
  lBizURL := TBizURL.Create;
  try
    AOrgTreeView.StartWithNodes.Clear;

        lBizURL.URL := 'ORG:\ROOT\JUSTEP.OGN\ASUPPORT.DPT\ENGINEER.PTM\RY1.psm';
        lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL); {找到用于表现用的节点}
        if lBizNode <> nil then
          AOrgTreeView.StartWithNodes.AddObject(lBizNode.GUID, lBizNode); {添加根节点}
        lBizURL.URL := 'ORG:\ROOT\JUSTEP.OGN\ASUPPORT.DPT\ENGINEER.PTM\zs.psm';
        lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL); {找到用于表现用的节点}
        if lBizNode <> nil then
          AOrgTreeView.StartWithNodes.AddObject(lBizNode.GUID, lBizNode); {添加根节点}

  finally
    lBizURL.free;
    AOrgTreeView.ReloadTree;
end;
end;

rzport_jqf

知道了,谢谢!