借用目录树管理表
设置权限使得学生登录时看不到管理,看不到系统,老师登录时可以看到管理,看不到系统,代码帮忙改一下!谢谢!
Dim trv As WinForm.TreeView =
e.Form.Controls("TreeView1")
If _UserName <> "老师" Then
trv.nodes("管理").Visible = True
trv.nodes("系统").Visible = False
trv.nodes("宿舍").Visible = True
ElseIf_UserName <> "学生" Then
trv.nodes("管理").Visible = False
trv.nodes("系统").Visible = False
trv.nodes("宿舍").Visible = False
Else
trv.nodes("管理").Visible = True
trv.nodes("系统").Visible = True
trv.nodes("宿舍").Visible = True
End If
---------------------------------------------------------