- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 表单没有了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110812)
-- 发布时间：2017/12/10 10:09:00
-- 表单没有了
此主题相关图片如下：qq图片20171210095747.png
此主题相关图片如下：qq图片20171210095724.png
哪位老师可以帮忙看看，本来我只是想把工资表不让非财会部看见，编辑了一段程序，结果所有人员都看不见工资表，就连开发者也无法查看 还有我觉得这样单纯的设计人员权限太费劲了，能否把name改为Grope群组呢？是不是效果一样呢
Select Case User.Name
Case "车间主任","统计工程师","操作员工","车间工艺工程师","采购工程师"
Tables("工资表").Visible = False
Case "操作员工"
Tables("随件卡").Visible = False
Case "操作员工"
Tables("员工月工时表").Visible = False
End Select
-- 发布时间：2017/12/10 10:23:00
--
我重新保存重新用开发者身份打开一下，工资表出来了，但在重启换操作者身份还是能看见我本来设计随件卡和员工月工时表是怎么回事呢
-- 发布时间：2017/12/10 15:21:00
--
下面代码写到，LoadUserSetting事件去
Select Case User.Name
Case "车间主任","统计工程师","车间工艺工程师","采购工程师"
Tables("工资表").Visible = False
Tables("随件卡").Visible = True
Tables("员工月工时表").Visible = True
Case "操作员工"
Tables("随件卡").Visible = False
Tables("员工月工时表").Visible = False
Tables("工资表").Visible = False
Case Else
Tables("随件卡").Visible = True
Tables("员工月工时表").Visible = True
Tables("工资表").Visible = True
End Select