主题：分享：目录树权限管理示例

顶一个。

感觉一楼的项目存在一些设计上的问题。

比如每次都清空表，再生成，好像没这个必要，理由，用户表的列是固定的，没必要动态生成。

再则，这样会造成闪屏，感觉不舒服。

另外目录树控件的AfterCheckNode事件代码好像优化空间非常大。

一家之言，杨版莫怪。

改了一下。

ComboBox1控件SelectedIndexChanged事件代码

TreeView1控件，AfterCheckNode事件代码：

e.Form.StopRedraw()
Dim r As DataRow = DataTables("用户").Find("用户名 = '" & e.Form.Controls("ComboBox1").Value & "'")
If r IsNot Nothing Then
    r(e.Node.FullPath.Replace("\","_")) = e.Node.Checked
End If
e.Form.ResumeRedraw()
 

项目在这：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

在权限表中，这样更直观一点。

If e.Sender.Value = "" Then
    Return
End If

Dim dr As DataRow = DataTables("用户").Find("用户名 = '" & e.Sender.Value & "'")
If dr IsNot Nothing Then
    For Each dr1 As DataRow In DataTables("权限管理").DataRows
        dr1("A") = dr(dr1("权限细目").Replace("\","_"))
    Next
End If

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateTree("权限管理","权限细目","\","","_Identify")
For Each nd As WinForm.TreeNode In tr.AllNodes
    For Each dr2 As Row In Tables("权限管理").Rows
        Dim Parts() As String = dr2("权限细目").Split("\")
        If nd.Text = Parts(1) Then
            nd.Checked = dr2("A")
        End If
    Next
Next
tr.ExpandAll()

DataTables("权限管理").DataCols("权限细目").Caption = e.Sender.Value & " 权限细目"
DataTables("权限管理").BuildHeader()

呵呵，这个问题我倒没留意，既然你发现了，这道题就留给你了

呵呵，不知老六忘记了还是留给大家做练习了。

有时间的话倒可以琢磨一下。