Foxtable(狐表) → 用户栏目 → 专家坐堂 → Tables("出入库明细表").visible =False为什么项目重启后，还能看到该表？


  共有2846人关注过本帖树形打印复制链接

主题：Tables("出入库明细表").visible =False为什么项目重启后，还能看到该表？
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		Tables("出入库明细表").visible =False为什么项目重启后，还能看到该表？  发帖心情 Post By：2019/4/15 17:50:00 [只看该作者]

Tables("出入库明细表").visible =False
这段代码写在AfterOpenProject中，为什么项目重启后，还能看到该表？
而在已经进入项目后，再去点击项目属性，确认后，才会不加载该表？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/15 18:04:00 [只看该作者]

你应该在别的地方写有代码控制显示了表格，比如你的【授权表】，显示隐藏表列的那段代码。

 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		回复：（有点甜）你应该在别的地方写有代码控制显示了...  发帖心情 Post By：2019/4/15 18:53:00 [只看该作者]

原来是受限于授权表，现在改过来了，
但是，分组“开发者”、“管理者”的表不显示的授权，却不奏效；
还有，用户“功能区”的可视化，在授权表中并没有涉及啊，可是现在，我在项目属性里的设置也失效了？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试006.zip


[此贴子已经被作者于2019/4/15 19:17:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		  发帖心情 Post By：2019/4/15 19:36:00 [只看该作者]

求帮助

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/15 20:35:00 [只看该作者]

代码里限制了只有普通用户才会进行权限处理，开发者和管理员账户登录后当然就不会执行里面权限设置的代码了

If User.Type = UserTypeEnum.User Then
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		回复：（有点蓝）代码里限制了只有普通用户才会进行权...  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/15 21:26:00 [只看该作者]

去掉
For Each us As UserInfo In Users
    If User.Type = us.Group Then

既然知道有限制，那么直接把限制去掉不就行了，何必画蛇添足。
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		回复：（有点蓝）去掉For Each us As UserInfo In Use...  发帖心情 Post By：2019/4/15 22:11:00 [只看该作者]

之前就尝试过，现在又试了一遍，删掉这两行判断，结果无效：

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试007.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/15 22:18:00 [只看该作者]

把所有窗口有关权限表控制的代码都去掉

 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		回复：（有点蓝）把所有窗口有关权限表控制的代码都去...  发帖心情 Post By：2019/4/15 22:31:00 [只看该作者]

可以了，谢谢老师，原来我是在窗口中的afterload事件中有设置
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询