-- 筛选
老师,下面代码我想改成绝对值筛选。
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