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


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

主题：权限设计问题.
帅哥，在线噢！
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107321 积分：545866 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/18 9:42:00 [只看该作者]

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

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


加好友 发短信
等级：三尾狐 帖子：603 积分：4624 威望：0 精华：0 注册：2020/4/15 19:53:00 		报错问题找到了.现在权限显示问题,还是没有解决,  发帖心情 Post By：2020/12/18 9:54:00 [只看该作者]

代码如下
For Each c As Winform.TopicPage In Forms("导航").Controls("TopicBar1").Pages
    c.Visible = True
Next

'Forms("导航").Controls("TopicBar1").Pages("授权表").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户组 = '" & _UserGroup & "'" )
        If dr.IsNull("列名") Then
            Forms("导航").Controls("TopicBar1").Pages(dr("表名")).Visible = Not dr("不可见")
        End If
    Next
End If

在授权表里面 设置 用户组(_usergroup) 为 经理  表名 (结算管理) 不可见(打钩)

启动导航栏以后, 还是可以看到 结算管理
 回到顶部
帅哥，在线噢！
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107321 积分：545866 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4624 威望：0 精华：0 注册：2020/4/15 19:53:00 		大神,这个代码用了,什么都弹出来  发帖心情 Post By：2020/12/18 10:51:00 [只看该作者]

大神,这个代码用了,没有对话框弹出来
[此贴子已经被作者于2020/12/18 10:51:08编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107321 积分：545866 威望：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 & "'" )
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4624 威望：0 精华：0 注册：2020/4/15 19:53:00 		搞定了.找到原因了  发帖心情 Post By：2020/12/18 13:36:00 [只看该作者]

搞定了,找到原因了.谢谢大神指点.
[此贴子已经被作者于2020/12/18 13:40:52编辑过]
 回到顶部
总数 16 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询