以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159905)

--  作者:江南小镇
--  发布时间:2021/1/13 10:43:00
--  筛选
老师,下面代码我想改成绝对值筛选。

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

--  作者:有点蓝
--  发布时间:2021/1/13 10:59:00
--  
请截图说明一下
--  作者:江南小镇
--  发布时间:2021/1/13 11:15:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:image 1.png
图片点击可在新窗口打开查看
 
--  作者:有点蓝
--  发布时间:2021/1/13 11:22:00
--  
比如:

tables("表A").filter = "号码=‘334’"