怎么删除流转窗体里的组织机构树的根节点？**

lixinghua

怎么删除流转窗体里的组织机构树的根节点？

atiger

这个窗体在  系统空间\用户界面基础\界面库\系统接口\选择组织单元对话框  你看一下里面的代码吧

lixinghua

我知道在这个位置啊！就是看了不知道改哪里才问的

atiger

procedure TBASESELECTORGUNITSFORM.DoLoadNodesBySource(ASource: TOrgURLs);

lixinghua

能不能把修改后的代码贴出来？

jiahaiming

系统空间\用户界面基础\界面库\系统接口\选择组织单元对话框
procedure TSELECTORGUNITSFORM.RefreshSource;
……
  获取可选择的组织机构树（完整的，包括了根节点）
  trvSource.BaseTree.GetNodesTreeList(lOrgNodes, lOrgTreeNodes, False,
      False, True, True);
    trvSource.ShowOptions := [TOrgUnitKind.boFolder, TOrgUnitKind.boOrgServer] + lKinds;
    {在这里要对lOrgTreeNodes做处理，删除两个不需要的根节点}
    为BizTreeView赋值，显示指定节点
    trvSource.Nodes := lOrgTreeNodes;


删除跟节点代码例子
for i := lTreeNodes.Count-1 downto 0 do
  begin
    lBizNode := lTreeNodes.Objects as TBizNode;
    if lbizNode.NodeKind in [TBizObjectKind.boOrgServer, TBizObjectKind.boOrgRoot] then
      lTreeNodes.Delete(i);
end;