怎样用select case 来做权限控制
Private Sub MDIForm_Load()
if status <> "管理员 "
sysusermange.Visible = False
end if
end sub
这句测试通过
如用select case 怎么来做,
管理员,一级会员,二级会员
我这样做无效
Select Case status
Case status = "一级会员 "
sysusermange.Visible = False
Case status = "二级会员 "
sysusermange.Visible = False
catin.Visible = False
End Select
[解决办法]
Select Case status
Case "一级会员 "
sysusermange.Visible = False
Case "二级会员 "
sysusermange.Visible = False
catin.Visible = False
End Select
