- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为何两端代码显示不一样，一段出错，一段不出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58789)
-- 发布时间：2014/10/23 20:20:00
-- 为何两端代码显示不一样，一段出错，一段不出错
第一段 不出错
For Each dr As DataRow In DataTables("菜单权限表").Select("用户分组 = \'" & User.Group & "\' and 用户名 = \'" & User.Name & "\'" )
If dr.IsNull("分组名") Then
RibbonTabs(dr("菜单名")).Visible = Not dr("菜单不可见")
RibbonTabs(dr("菜单名")).Enabled = Not dr("菜单不可用")
ElseIf dr.IsNull("按钮名") Then
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible = Not dr("分组不可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Enabled = Not dr("分组不可用")
Else
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Visible = Not dr("按钮不可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Enabled = Not dr("按钮不可用")
End If
Next
第二段出错，显示数据库菜单权限表
Dim cmd As new SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select * From {菜单权限表} where 用户分组 = \'" & User.Group & "\' and 用户名 = \'" & User.Name & "\'"
dt = cmd.ExecuteReader() \'记得将参数设置为True
For Each dr As DataRow In dt.DataRows
If dr.IsNull("分组名") Then
RibbonTabs(dr("菜单名")).Visible = Not dr("菜单不可见")
RibbonTabs(dr("菜单名")).Enabled = Not dr("菜单不可用")
ElseIf dr.IsNull("按钮名") Then
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible = Not dr("分组不可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Enabled = Not dr("分组不可用")
Else
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Visible = Not dr("按钮不可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Enabled = Not dr("按钮不可用")
End If
Next
-- 发布时间：2014/10/23 20:22:00
--
报什么错。
-- 发布时间：2014/10/23 20:31:00
--
表已加载
此主题相关图片如下：23.bmp
-- 发布时间：2014/10/23 20:33:00
--
代码放在loadusersetting
此主题相关图片如下：24.bmp
-- 发布时间：2014/10/23 20:33:00
--
设置数据源
http://www.foxtable.com/help/topics/2344.htm
-- 发布时间：2014/10/23 20:34:00
--
数据源没设置
-- 发布时间：2014/10/23 20:45:00
--
谢谢，可以了，我参考的帮助文件如下
此主题相关图片如下：25.bmp