参考代码
Dim str As String = "1,2,3,4,5"
Dim nstr As String = ""
For Each s As String in str.split(",")
nstr &= " or 第一列 like '%" & s & "%'"
Next
nstr = nstr.substring(3)
msgbox(nstr)
加好友 
发短信
Post By：2019/3/18 10:26:00 [显示全部帖子]
