- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- LIKE语法问题求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149953)
-- 发布时间：2020/5/16 14:30:00
-- LIKE语法问题求助
Dim dt As DataTable = DataTables("Limits")
Dim dr As DataRow
dr = dt.Find("窗口模块 = \'" & tab & "\' And 控件名称 = \'" & btn & "\'" )
If dr Is Nothing Then
MessageBox.show("不存在名为""" & tab & "窗口模块!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
If dr.IsNull("角色名称") = False Then
Dim nms() As String = dr("角色名称").Split("/")
Dim nm As String
If nm = nms Like _USERGroup Then
\'就请教这句，其中NMS是角色名称这个单元格的内容，角色名称是多值字段，然后通过集合赋值给nms，接下来我要在这个多值字段中匹配一个值，在nms中寻找全局变量_usergroup是否存在？如果存在就执行程序，不存在就报错误。但是LIKE语句写不好。
Forms("生产单").show()
Else
MSGBOX("你没有使用这个功能的权限,请联系管理员")
End If
Else
msgbox("没有找到相关权限")
End If
-- 发布时间：2020/5/16 14:40:00
--
If dr.IsNull("角色名称") = False Then
Dim nm As String = "/" & dr("角色名称") & "/"
If nm Like "*/" & _USERGroup & "/*" Then
Forms("生产单").show()
Else
MSGBOX("你没有使用这个功能的权限,请联系管理员")
End If
Else
msgbox("没有找到相关权限")
End If
-- 发布时间：2020/5/16 15:02:00
--
谢谢蓝老师！我参考帮助的例子，改了无数种方式，死活都没想到您的写法。。。。
