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

各位老师，

 

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

此主题相关图片如下：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

 

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

 

谢谢！

谢谢CZY,我把

nd.Nodes.Remove( nd.Nodes("nd1"))

改为 nd.Nodes.Remove(nd1)

 

就可以了。

老师可能误会了，这句代码

 

If dr IsNot Nothing Then
        Else
            nd.Nodes.Remove( nd.Nodes("nd1"))
        End If

我的意思是如果找到则什么都不做，

 

找不到即else才移除节点

 

请问老师这种条件语句是不是有错？

谢谢CZY老师，理解了，但奇怪的是我那样写运行也没有出错，不知道为什么？

 

再次感谢