Foxtable(狐表) → 用户栏目 → 专家坐堂 → 权限设计问题.


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

主题：权限设计问题.
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/16 8:45:00 [显示全部帖子]

1、不支持这种用法，可以改为使用NavBar导航栏+目录树
2、到窗口afterload写代码处理即可

比如

if user.name = "张三"
Forms("窗口1").Controls("TopicBar1").Pages("项目").Links("打开").visible = false
end if
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/18 8:41:00 [显示全部帖子]

就是这个用法，有什么问题？

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


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/18 9:13:00 [显示全部帖子]

For Each c As Winform.TopicPage In Forms("导航").Controls("TopicBar1").Pages
   c.Visible = False
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/18 9:21:00 [显示全部帖子]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm
哪一句代码出错？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/18 9:42:00 [显示全部帖子]

Show(1)可以弹出，Show(2)不能弹出？那就是下面的名称有不正确

Forms("导航").Controls("TopicBar1").Pages("授权表")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/18 9:59:00 [显示全部帖子]

学会调试

If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户组 = '" & _UserGroup & "'" )
msgbox(“列名=” & dr.IsNull("列名"))
        If dr.IsNull("列名") Then
msgbox(dr("表名"))
            Forms("导航").Controls("TopicBar1").Pages(dr("表名")).Visible = Not dr("不可见")
msgbox(“不可见=” & dr("不可见"))
        End If
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/18 11:29:00 [显示全部帖子]

说明用户不是普通用户，授权表没有这个用户组的授权数据，还是那句话，学会调试

msgbox(User.Type)
If User.Type = UserTypeEnum.User Then
msgbox("用户组 = '" & _UserGroup & "'" )
    For Each dr As DataRow In DataTables("授权表").Select("用户组 = '" & _UserGroup & "'" )
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询