西安分行管理员登录后，目录树应该如下：

此主题相关图片如下：1.png

榆林中支的管理员登录后，目录树应该如下：

此主题相关图片如下：2.png

府谷县支管理员登录后，目录树应该是如下：

此主题相关图片如下：3.png

基于单位表：

机构编码               单位名称   上级单位名称
A1000161000208 神木县支行 榆林市中心支行
A1000161000210 府谷县支行 榆林市中心支行
A1000161000475 榆林市中心支行 西安分行
A1000161000727 西安分行 
A1000161000739  西安分行营管理部 西安分行
A1000161000780 宝鸡市中心支行 西安分行

我是基于上表用递归的方法实现目录树的，但是现在在实现权限管理中，目录树生成出错，

AddChildern函数：

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = dt.Select("[superName] = \'" & nd.name & "\'")
For Each dr As DataRow In drs
    Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("organName"),dr("organName"))
   
    Functions.Execute("AddChildren",cd,dt)
Next

目录树afterLoad事件：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("organList")
tr.StopRedraw()\'\'停止绘制目录树
tr.Nodes.Clear
\'tr.Nodes.Add("全部")
For Each dr As DataRow In dt.datarows
    If dr.IsNull("superName") Then
        nd = tr.Nodes.Add(dr("organName"),dr("organName"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw() \'\'恢复绘制目录树

每次切换用户时，必须把单位表重新加载一次才能列出所有单位供选择，能默默加载，不显示在表里面么？逻辑上来说切换用户时，当前用户肯定没有权限看所有的单位信息，但要加载目录树必须加载所有信息

afterLoad事件

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("organList")
tr.StopRedraw()\'\'停止绘制目录树
tr.Nodes.Clear
\'tr.Nodes.Add("全部")
For Each dr As DataRow In dt.datarows
    If dr("organName") = _User单位变量 Then
        nd = tr.Nodes.Add(dr("organName"),dr("organName"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw() \'\'恢复绘制目录树

您好 ，这个只能实现2级递归，榆林中支下面的县无法显示出来

感谢您！是我把单位表筛选了，所以只生成两级 ，我还想请教个问题，要依据目前生成的目录树筛选表，

1、选择了西安分行，那么整个是这个目录树节点的单位都从表里筛选出来 ，

此主题相关图片如下：1.png

2、选择了榆林中支，那么榆林整个这个目录树节点的单位都从表里筛选出来

DataTables("organList").LoadFilter = "organName = \'" & _UserOrgan & "\'or superName=\'" & _UserOrgan & "\'"

organName等于自身名称，或者organName自身的上级单位名称，或者organName是自身的上上级单位名称？

红色的这个怎么实现呀？