主题：动态加载后目录树设计

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

此主题相关图片如下：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.png

回复楼上，不可能，做个例子发上来测试。

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

 

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

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

 

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

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

把选择的节点和子节点取出来，拼成查询条件，类似

 

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

 

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

红色的这个怎么实现呀？

没看懂，表结构和数据截图看看