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