以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口按钮权限设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171347)

--  作者:charity
--  发布时间:2021/8/27 9:11:00
--  窗口按钮权限设置
请问我这段代码有问题吗?   我想让设计师和版师这两个角色有权限增加,

If User.IsRole("版师") OrElse User.IsRole("设计师") Then
    Tables(e.Form.TableName).AddNew()
Else
    PopMessage("没权限增加",,,7)
    Return
End If
Dim aa As WinForm.Form = Forms("版型信息")
If aa.Opened = False Then
    aa.Open()
End If

--  作者:有点蓝
--  发布时间:2021/8/27 9:18:00
--  
看不出。有什么问题?什么错误?
--  作者:charity
--  发布时间:2021/8/27 10:09:00
--  
使用的时候版师增加不了,提示没有权限增加

 

--  作者:有点蓝
--  发布时间:2021/8/27 10:33:00
--  
说明登录用户不是这2个角色

msgbox(user.roles)

--  作者:charity
--  发布时间:2021/8/27 10:58:00
--  
我就是以版师身份登陆的呀     但是他就是增加不了    增加的时候提示没有权限增加
--  作者:有点蓝
--  发布时间:2021/8/27 11:21:00
--  
请上传实例说明
--  作者:charity
--  发布时间:2021/8/27 11:25:00
--  
这个怎么上传实例说明呀?
--  作者:有点蓝
--  发布时间:2021/8/27 11:28:00
--  
开发的项目文件发上来测试
--  作者:charity
--  发布时间:2021/8/27 12:50:00
--  
项目已上传  
--  作者:有点蓝
--  发布时间:2021/8/27 13:42:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

一次不行,重复上传,直到录入区域有上传的连接