老师，下面代码我想改成绝对值筛选。
Dim Cols,Vals As New List(of String)
Dim flt As String = "1=1"
For Each c As Col In Args(0).Cols
If c.Visible = True
cols.add(c.name)
End If
Next
'生成查询条件
Vals.AddRange(Args(1).Replace("'","''").Replace("*","[*]").Split(",")) '查询值列表并保证其有效
Dim i As Integer = 0
For Each Val As String In Vals
Dim temp As String = ""
For Each c As String In Cols
temp = temp & " Convert(" & c & ",'System.String') like '%" & Val & "%' Or"
Next
flt = flt & " and ("& temp.SubString(0, temp.length-3) & ")"
Next
'msgbox(flt)
Return flt
加好友 
发短信
Post By：2021/1/13 10:43:00 [显示全部帖子]
此主题相关图片如下：image 1.png