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

StopRedraw　和　ResumeRedraw　这两个函数用的好！代码精简的好！

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

 

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()

也可以不用过度表的，我做个例子给大家。

C和Y版主，做的实例当中，直接对人事管理这个一级模块前打勾都会报错。

 

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

此主题相关图片如下：qq截图20110826153756.png

我感觉添加这段代码就好了，可是会跳出如图的BUG，这个不会处理

For Each nd As WinForm.TreeNode In e.Node.AllNodes
    nd.Checked  = e.Node.Checked
Next

好啊，我本来也不想用过度表的，可是功力不够啊，搞了几个小时都不行，所以只好过度了，呵

这个问题是没注意到，呵，我再看看

目录树的AfterCheckNode事件代码改成这样试试

 

e.Form.StopRedraw()
Dim r As DataRow = DataTables("用户").Find("用户名 = '" & e.Form.Controls("ComboBox1").Value & "'")
If r IsNot Nothing And e.Node.Level > 0 Then
    r(e.Node.FullPath.Replace("\","_")) = e.Node.Checked
Else
For Each nd As WinForm.TreeNode In e.Node.AllNodes
    nd.Checked  = e.Node.Checked
Next
End If

e.Form.ResumeRedraw()

Checked 后不是可以取得 FullPath 名称吗，在表中找到对应的位置同步一下不就可以了吗。