黄色代码没有任何用处,去掉
Select Case e.Node.Name
Case e.Node.Name
Dim nms() As String = User.Roles.Split(",")
For Each nm As String In nms
Dim dr As DataRow
dr = DataTables("目录树节点权限表").Find("目录树节点 = '" & e.Node.Name & "' and 角色 like '%" & nm & "%' and 不可用 = true")
If dr IsNot Nothing Then
MessageBox.Show("你无此节点权限!", "提示")
e.cancel=True
return
End If
Next
End Select