[求助]代码报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面这段代码执行到这儿就报错，是怎么回事

For Each rb As RibbonMenu.Tab In RibbonTabs

Dim dr1 As DataRow = DataTables("用户权限_菜单权限").SQLFind("一级菜单_名称 = '"& rb.Name &"' and 二级菜单_名称 is null and 三级菜单_名称 is null")

Dim sz1 As String = dr1("角色")

Dim jh1 As new List(of String)

jh1.AddRange(sz1.Split(","))

For Each str1 As String In jh1

If _usergroup.Contains(str1)

rb.Visible = True

Else

rb.Visible = False

End If

For Each gp As RibbonMenu.Group In rb.Groups

Dim dr2 As DataRow = DataTables("用户权限_菜单权限").SQLFind("一级菜单_名称 = '"& rb.Name &"' and 二级菜单_名称 = '"& gp.Name &"' and 三级菜单_名称 is null")

Dim sz2 As String = dr2("角色")

Dim jh2 As new List(of String)

jh2.AddRange(sz2.Split(","))

For Each str2 As String In jh2

If _usergroup.Contains(str2)

gp.Visible = True

Else

gp.Visible = False

End If

For Each itm As RibbonMenu.RibbonItem In gp.Items

Dim dr3 As DataRow = DataTables("用户权限_菜单权限").SQLFind("一级菜单_名称 = '"& rb.Name &"' and 二级菜单_名称 = '"& gp.Name &"' and 三级菜单_名称 = '"& itm.Name &"'")

Dim sz3 As String = dr3("角色")

Dim jh3 As new List(of String)

jh3.AddRange(sz3.Split(","))

For Each str3 As String In jh3

If _usergroup.Contains(str3)

itm.Visible = True

Else

itm.Visible = False

End If

报什么错？

下面都是些什么值？

msgbox( sz2)

msgbox(_usergroup)

此主题相关图片如下：tim截图20200111172707.png

我测试这段也报相同错误错

Output.Show(_UserGroup)

我先将菜单储存在一个表中，循环拆解角色与表单中的角色比较，有就显示菜单，没有就不显示菜单

找到问题了，是下面这段代码获取值有问题，我用SQLGetComboListString获取不到数值，但是用GetComboListString可以获取到数值，这个是怎么回事

Dim s As String = DataTables("用户权限_角色").SQLGetComboListString("角色","用户 like '*"& username &"*'")

[此贴子已经被作者于2020/1/11 21:11:46编辑过]

改为这样试试
Dim s As String = DataTables("用户权限_角色").SQLGetComboListString("角色","用户 like '%" & username & "%'")

msgbox("用户 like '%" & username & "%'") ‘这里显示什么内容？

可以了，这两个匹配模糊值的时候为什么还不一样呢

这个得问微软了。一般建议优先使用%

主题：[求助]代码报错