[求助]这个复杂的目录树授权，能实现吗！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 nd1.Level = 2 Then
    dr = DataTables("YHB").Find("YHB_DWBHMC = '" & nd1.ParentNode.ParentNode.Name & "' And YHB_BMBHMC = '" & nd1.ParentNode.Name & "' And YHB_YHBHMC = '" & nd1.Name & "'")
End If
If dr IsNot Nothing Then
    Dim nd As WinForm.TreeNode = e.node
    If e.node.Checked = False
        For Each tnd As WinForm.TreeNode In nd.AllNodes
            If tnd.Checked Then
                msgbox("不能取消")
                e.node.Checked = True
                Return
            End If
        Next
        Do While nd.parentnode IsNot Nothing
            nd = nd.parentnode
            If nd.Nodes.Count > 0
                For i As Integer = 0 To nd.Nodes.Count -1
                    If nd.Nodes(i).Checked = True
                        Exit Do
                    End If
                    If i = nd.Nodes.Count -1
                        nd.Checked = False
                    End If
                Next
            End If
        Loop
    Else
        Do While nd.parentnode IsNot Nothing
            nd = nd.parentnode
            nd.Checked = True
        Loop
    End If
    Dim nms As String
    For Each nd2 As WinForm.TreeNode In trv2.AllNodes
        If nd2.Checked Then
            If nd2.Level = 0 Then
                nms = nms & "," & nd2.Name
            ElseIf nd2.Level = 1 Then
                nms = nms & "," & nd2.ParentNode.Name & "\" & nd2.Name
            ElseIf nd2.Level = 2 Then
                nms = nms & "," & nd2.ParentNode.ParentNode.Name & "\" & nd2.ParentNode.Name & "\" & nd2.Name
            ElseIf nd2.Level = 3 Then
                nms = nms & "," & nd2.ParentNode.ParentNode.ParentNode.Name & "\" & nd2.ParentNode.ParentNode.Name & "\" & nd2.ParentNode.Name & "\" & nd2.Name
            Else
            End If
        End If
    Next
    If nms > "" Then
        dr("YHB_YHQX") = nms .Trim(",")
    Else
        dr("YHB_YHQX") = Nothing
    End If
End If

主题：[求助]这个复杂的目录树授权，能实现吗！