- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 【求助】怎么实现多选组合框里面的值，全部都能够被有效使用呢？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113045)
-- 发布时间：2018/1/7 23:37:00
-- 【求助】怎么实现多选组合框里面的值，全部都能够被有效使用呢？
For i As Integer = 0 To ribbontabs.count - 1
RibbonTabs(i).Visible = False
For j As Integer = 0 To RibbonTabs(i).Groups .count - 1
RibbonTabs(i).Groups (j).Visible = False
Next
Next
For Each dr As DataRow In DataTables("菜单权限表").Select("用户名 = \'" & _username & "\' and 菜单名 is not null" )
If dr.IsNull("分组名") Then
RibbonTabs(dr("菜单名")).Visible = dr("可见")
If dr("可见") = True Then
For j As Integer = 0 To RibbonTabs(dr("菜单名")).Groups .count - 1
RibbonTabs(dr("菜单名")).Groups (j).Visible = True
Next
End If
RibbonTabs(dr("菜单名")).Enabled = dr("可用")
ElseIf dr.IsNull("按钮名") Then
RibbonTabs(dr("菜单名")).Visible = dr("可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible = dr("可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Enabled = dr("可用")
Else
RibbonTabs(dr("菜单名")).Visible = dr("可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible = dr("可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Visible = dr("可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Enabled = dr("可用")
End If
Next
-- 发布时间：2018/1/8
-- 回复：（李孝春）【求助】编译错误：变量“dr”在封闭...
比如 李孝春，张莉，叶安庆，谭飞 四个多选值
此主题相关图片如下：21.jpg
-- 发布时间：2018/1/8 8:58:00
--
修改代码
For Each dr As DataRow In DataTables("菜单权限表").Select("用户名 like \'%" & _username & "%\' and 菜单名 is not null" )
或者
For Each dr As DataRow In DataTables("菜单权限表").Select("\',\' + 用户名 + \',\' like \'%," & _username & ",%\' and 菜单名 is not null" )