专家坐堂-按键权限设置Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

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

--  作者：denghui69986
--  发布时间：2022/6/14 7:38:00
--  按键权限设置
If User.Group <> "经理" Then
    e.Form.Controls("Button1").Enabled = False
    e.Form.Controls("Button3").Enabled = False
End If

我在窗口的AfterLoad事件设置代码怎么任何用户进去都打不开，包括开发者，不知那里出错了
老师指导一下这两个按键任何用户都打不开进去都是变灰色了，谢谢

--  作者：有点蓝
--  发布时间：2022/6/14 8:43:00
--
判断的是分组：If User.Group <> "经理" Then

要使用分组是经理的用户登录测试

--  作者：denghui69986
--  发布时间：2022/6/14 8:55:00
--

--  作者：有点蓝
--  发布时间：2022/6/14 8:57:00
--
那是角色，不是分组。角色要使用isrole判断

http://www.foxtable.com/webhelp/topics/0609.htm

--  作者：denghui69986
--  发布时间：2022/6/14 9:06:00
--
还是没明白怎么判断，老师指导

--  作者：有点蓝
--  发布时间：2022/6/14 9:13:00
--
If User.IsRole("经理")= false Then
    e.Form.Controls("Button1").Enabled = False
    e.Form.Controls("Button3").Enabled = False
End If

--  作者：denghui69986
--  发布时间：2022/6/14 9:19:00
--
所有用户都打不开，包括自己开发者账户

--  作者：有点蓝
--  发布时间：2022/6/14 9:36:00
--
控件是不是在设计的时候就设置为不可用了？是不是使用切换用户测试的？

dim b as boolean = User.IsRole("经理")
e.Form.Controls("Button1").Enabled = b
e.Form.Controls("Button3").Enabled = b

--  作者：denghui69986
--  发布时间：2022/6/14 10:30:00
--
可以了，谢谢