主题：[已解决]目录树授权，大问题

 看了一下，你把afterchecknode事件的代码改成

 

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nd1 As WinForm.TreeNode = trv1.SelectedNode
Dim dr As DataRow
If e.Node.ParentNode IsNot Nothing Then '取消父节点的选中标记,因为选中子节点,就不要选中父节点了
    e.Node.ParentNode.Checked = False
End If
For Each cnd As WinForm.TreeNode In e.Node.Nodes '取消子节点的选中标记,因为选中父节点,就不要选中子节点了
    cnd.Checked = False
Next
If nd1.Level = 0 Then
    dr = DataTables("授权").Find("分组 = '" & nd1.Name & "' And 权限 Is Null")
Else
    dr = DataTables("授权").Find("分组 = '" & nd1.ParentNode.Name & "' And 权限 = '" & nd1.Name & "'")
End If
If dr IsNot Nothing Then
    Dim nms As String = dr("用户")
    For Each nd2 As WinForm.TreeNode In trv2.AllNodes
        nms = nms.Replace(nd2.Name & ",", "").Replace("," & nd2.Name, "").replace(nd2.Name, "")
        If nd2.Checked  Then
            nms = nd2.Name & "," & nms
        End If
    Next
    If nms > "" Then
        dr("用户") = nms.Trim(",")
    Else
        dr("用户") = Nothing
    End If
End If

比如先用贺辉登录,设置了批准订单权限为 张三

 

再用杨刚登录，设置批准订单权限为 马六，然后对比一下授权表里面的用户字段

 

此主题相关图片如下：贺辉授权后.jpg


此主题相关图片如下：杨刚登录后未操作授权.jpg


此主题相关图片如下：杨刚进行授权后.jpg

看看楼上是否能帮到你.

嗯，重新设置了条件就可以了