- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Tables("出入库明细表").visible =False为什么项目重启后，还能看到该表？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133519)
-- 发布时间：2019/4/15 17:50:00
-- Tables("出入库明细表").visible =False为什么项目重启后，还能看到该表？
Tables("出入库明细表").visible =False
这段代码写在AfterOpenProject中，为什么项目重启后，还能看到该表？
而在已经进入项目后，再去点击项目属性，确认后，才会不加载该表？
-- 发布时间：2019/4/15 18:04:00
--
你应该在别的地方写有代码控制显示了表格，比如你的【授权表】，显示隐藏表列的那段代码。
-- 发布时间：2019/4/15 18:53:00
-- 回复：（有点甜）你应该在别的地方写有代码控制显示了...
原来是受限于授权表，现在改过来了，
但是，分组“开发者”、“管理者”的表不显示的授权，却不奏效；
还有，用户“功能区”的可视化，在授权表中并没有涉及啊，可是现在，我在项目属性里的设置也失效了？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试006.zip |
[此贴子已经被作者于2019/4/15 19:17:36编辑过]
-- 发布时间：2019/4/15 19:36:00
--
求帮助
-- 发布时间：2019/4/15 20:35:00
--
代码里限制了只有普通用户才会进行权限处理，开发者和管理员账户登录后当然就不会执行里面权限设置的代码了
If User.Type = UserTypeEnum.User Then
-- 发布时间：2019/4/15 20:54:00
-- 回复：（有点蓝）代码里限制了只有普通用户才会进行权...
那现在我想要授权表对所有的用户组都可以授权，应该怎么写？帮忙看下我写的是不是哪里出问题了，没效果，该怎么改？
For Each us As UserInfo In Users
If User.Type = us.Group Then
For Each dr As DataRow In DataTables("授权表").Select("分组名 = \'" & User.Group & "\'" )
If Tables.contains(dr("表名")) Then
If dr.IsNull("列名") Then
Tables(dr("表名")).Visible = Not dr("不可见")
Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
Else
Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
End If
End If
Next
End If
Next
[此贴子已经被作者于2019/4/15 20:55:30编辑过]
-- 发布时间：2019/4/15 21:26:00
--
去掉
For Each us As UserInfo In Users
If User.Type = us.Group Then
既然知道有限制，那么直接把限制去掉不就行了，何必画蛇添足。
-- 发布时间：2019/4/15 22:11:00
-- 回复：（有点蓝）去掉For Each us As UserInfo In Use...
之前就尝试过，现在又试了一遍，删掉这两行判断，结果无效：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:测试007.zip |
-- 发布时间：2019/4/15 22:18:00
--
把所有窗口有关权限表控制的代码都去掉
-- 发布时间：2019/4/15 22:31:00
-- 回复：（有点蓝）把所有窗口有关权限表控制的代码都去...
可以了，谢谢老师，原来我是在窗口中的afterload事件中有设置