老师

这个项目实现了用逗号分隔可多列查询

但是只能按照列的顺序才行 如果第二列没有值则查询不出

怎样写才能不用按照列的顺序 并且某列未空也可查询出来呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:筛选_201509141020.zip

看不懂你代码想干什么，模糊筛选直接写

Dim filter As String = "1=2"
For Each dc As Col In Tables("表A").Cols
    Filter &= " or Convert(" & dc.Name & ",\'System.String\') like \'%" & e.Form.Controls("TextBox1").Text & "%\'"
Next

Tables("表A").Filter = filter

额 是我表述不清楚

就是想实现多列的模糊查询

这个表A里“报名”这列没有内容 则输入逗号就查询不出内容

此主题相关图片如下：1.bmp

这个表B里我如果按照列的顺序是可以正常查询出数据

可是一旦隔开一列输入则查询不出来

filter内部函数

\'生成可见的列名称
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
Return flt