主题：[求助]关于模糊筛选

求助大侠：

关于模糊查寻：

有内容为： “ 89米（M/6）— 电脑 ”

现我想模糊输入： “ 89M ” 就能将上面这个输出

不知道如何修改如下代码的？

Dim tnames() As String = { "Table1", "Table2"}
With e.Form
If e.sender.text <> ""Then
For Each tname As String In tnames
Dim dst As Table = Tables(tname)
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
Dim filter As String = "1=2"
For Each dc As DataCol In dst.DataTable.DataCols
filter &= " or convert(" & dc.Name & ",'System.String') like '%" & txb1.text & "%'"
Next

dst.Filter = filter
Next
End If
End With

 不能这样，除非加空格 89 M

 Dim tnames() As String = { "Table1", "Table2"}
With e.Form
    If e.sender.text <> ""Then
        For Each tname As String In tnames
            Dim dst As Table = Tables(tname)
            Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
            Dim filter As String = "1=2"
            For Each dc As DataCol In dst.DataTable.DataCols
                For Each tx As String In txb1.Text
                    filter &= " or convert(" & dc.Name & ",'System.String') like '%" & tx & "%'"
                Next
            Next
           
            dst.Filter = filter
        Next
    End If
End With

 写错了。

Dim tnames() As String = { "Table1", "Table2"}
With e.Form
    If e.sender.text <> ""Then
        For Each tname As String In tnames
            Dim dst As Table = Tables(tname)
            Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
            Dim filter As String = "1=2"
            For Each dc As DataCol In dst.DataTable.DataCols
                filter &= " or "
                Dim ary() As String = txb1.Text.Split(" ")
                For i As Integer = 0 To ary.Length - 2
                    filter &= " convert(" & dc.Name & ",'System.String') like '%" & ary(i) & "%'"
                    filter &= " and "
                Next
                filter &= " convert(" & dc.Name & ",'System.String') like '%" & ary(ary.length-1) & "%'"
            Next
           
            dst.Filter = filter
        Next
    End If
End With

老大你帮忙给的代码不能执行呢？