以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  授权  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126970)
--  作者：outcat
--  发布时间：2018/11/2 1:07:00
--  授权

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 

授权已做

 

 


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

 

客户订砖 已经指定了人员拥有权限，菜单代码

If Functions.Execute("ShouQuan","销砖","客户订砖")

    Forms("新增客户订砖").open

Else

    RibbonTabs("业务管理").Groups("销砖").Items("客户订砖").Enabled = False

    MessageBox.show("权限不足")

End If

 

 

老师，看一下哪出问题了
--  作者：有点甜
--  发布时间：2018/11/2 8:59:00
--  

你ShouQuan函数里面的代码有问题，在里面加入msgbox，看弹出到哪里开始出错。

 

去你权限表那里看看，看你是不是填入错了值？