TreeView里CheckBox问题

Question

一个例子:
'/////////////////////////////////////////////////////////////////////////////////
    '将它的上级默认设置为浏览权限"B",将所有下级设置为所有权限
    '/////////////////////////////////////////////////////////////////////////////////
    Private Sub TVroles_Check(ByVal sender As Object, ByVal e As Microsoft.Web.UI.WebControls.TreeViewClickEventArgs) Handles TVroles.Check
        '级别数组 
        Dim NodeLocals() As String = Split(e.Node, ".")
        Dim i As Integer
        Dim SelectNode, Pnode As Microsoft.Web.UI.WebControls.TreeNode
        '找到点击的节点
        For i = 0 To NodeLocals.Length - 1
            If i = 0 Then
                SelectNode = TVroles.Nodes(NodeLocals(i))
            Else
                SelectNode = SelectNode.Nodes(NodeLocals(i))
                '将加入浏览权限
                SelectNode.NodeData = addroles(SelectNode.NodeData, "B")
            End If
        Next        '将下级所有文件夹设置为所有权限
        For i = 0 To SelectNode.Nodes.Count - 1
            If SelectNode.Checked Then
                SetRoles(SelectNode.Nodes(i), "NMDBA", True)
                SelectNode.Nodes(i).Checked = True
            Else
                SetRoles(SelectNode.Nodes(i), "", False)
                SelectNode.Nodes(i).Checked = False
            End If
        Next
        TVroles.SelectedNodeIndex = e.Node
        If SelectNode.Checked Then
            CBbrow.Checked = True
            CBaccess.Checked = True
            SelectNode.NodeData = "BA"
        Else
            CBnew.Checked = False
            CBmodi.Checked = False
            CBdel.Checked = False
            CBbrow.Checked = False
            CBaccess.Checked = False
            SelectNode.NodeData = ""
        End If
    End Sub