| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]请教一段关于权限设置的代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129800) |
| -- 作者：bashanren -- 发布时间：2019/1/6 18:04:00 -- [求助]请教一段关于权限设置的代码 各位老师下午好！！ 我在菜单中设有下面一段代码，目的是登录用户如果是“超级管理”或“管理员”的话，有限打开“词典设置”这个窗口，否则提示“权限不足”并回。但运行时两个问题：一是说Cancel未申请；二是说从字符串“超级管理”转到类型“Boolean”转换不效，不知如何修改，请大师帮忙，谢谢！！ If _UserRoles <> "管理员" Or "超级管理" Then \' 如果是管理员或者超级管理 msgbox("权限不足!") Cancel = True \'则具备所有权限 Else Forms("词典设置").open End If |
| -- 作者：2900819580 -- 发布时间：2019/1/6 19:34:00 -- e.Cancel = True \'则具备所有权限 或者更改为e.form.close
|
| -- 作者：有点甜 -- 发布时间：2019/1/6 19:49:00 -- 改成
If _UserRoles <> "管理员" AndAlso _UserRoles <> "超级管理" Then \' 如果是管理员或者超级管理
msgbox("权限不足!")
Else
Forms("词典设置").open
End If [此贴子已经被作者于2019/1/6 19:50:11编辑过]
|