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

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

此主题相关图片如下：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() ''恢复绘制目录树

 

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

 

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

 

 

   

 

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

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

 

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

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

 

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

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

 

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

 

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

红色的这个怎么实现呀？

AddFilter

Dim og As string= args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = dt.Select("[superName] = '" & og & "'")
Dim Filter as string
For Each dr As DataRow In drs
    If Filter > "" Then
            Filter = Filter & " or "
    End If
    Filter=Filter & dr("organName")
    Functions.Execute("AddFilter",Filter,dt)
Next

load:

Dim dt As DataTable = DataTables("organList")
For Each dr As DataRow In dt.datarows
   If dr("organName") = _UserOrgan Then
        Filter=Filter & dr("organName")
        Functions.Execute("AddFilter",Filter,dt)
    End If
Next
 

 

我想用递归来得到表的filter，返回一个filter表达式，