各位老师，

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

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

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

谢谢！

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
            nd.Nodes.Remove( nd.Nodes("nd1"))
        End If
    Next
End If

谢谢CZY,我把

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

改为 nd.Nodes.Remove(nd1)

就可以了。

二楼理解有误，好像应该这样吧

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 Is Nothing Then
            nd.Nodes.Remove(nd1)
        End If
    Next
End If

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

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

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

找不到即else才移除节点

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

应该这样

If dr Is Nothing Then

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

再次感谢