主题：如何移除目录下满足条件的节点

各位老师，

 

在导航的目录树中设计了以下功能，如下图

此主题相关图片如下：qq截图20120831180104.jpg

 

双击父节点展开前，判断当前登录用户的部门及角色以及目录树节点的表名有没有在授权表中，如果没有则移除该节点，代码如下，

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode

If _UserName <> "开发者" Then
    For Each nd1 As WinForm.TreeNode In nd.Nodes
        Dim dr As DataRow
        dr = DataTables("授权表").Find("部门 = '" & _UserGroup & "' And 角色 In ('" & _UserRole & "') and 表名 = '" & nd1.Text & "'")
        If dr IsNot Nothing Then
        Else
            nd.Nodes.Remove( nd.Nodes("nd1"))
        End If
    Next
End If

 

但运行后出错如下：

 

此主题相关图片如下：qq截图20120831180241.jpg

 

不知哪里有错，请老师指点

 

谢谢！