新建表tb
ID cc xm
1 a hello
2 dd text,doc
3 dd text,jpg
4 aa mo
新建模块,加入代码
Function test(a As String, d As String) As Boolean
test = False
s = Split(a, ",")
For Each p In s
If InStr(1, p, d, vbTextCompare) > 0 Then
test = True
Exit For
End If
Next
End Function
新建查询,查询包含jpg字符串的行
SELECT *
FROM tb
WHERE (((test([xm],"jpg"))<>False));
运行结果
ID cc xm
3 dd text,jpg