主题：[求助]请问目录树授权,为什么选择节点后,无法将所选节点记录保存下来呢?

此主题相关图片如下：jdfw.gif

代码是这样的,

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

    For Each nd2 As WinForm.TreeNode In trv2.AllNodes

        If nd2.Checked  Then

            nms  = nms & "," &  nd2.Name

        End If

    Next

    If nms > "" Then

        dr("用户") = nms.Trim(",")

    Else

        dr("用户") = Nothing

    End If

End If

DataTables("授权表").Save()

e.Form.Close()