Dim tb As Table = e.Form.Controls("Table1").Table
Dim sf As String =e.Form.Controls("模糊查找").text
Dim str As String = ""
Dim cmbCols As WinForm.ComboBox = e.Form.Controls("cmbCols")
If e.Sender.Text.Length>0 Then
    If cmbCols.Text.length>0 Then
        If tb.Cols(cmbCols.Text).IsString Then
            str= cmbCols.Text & " Like \'%" & e.Sender.Text & "%\'"
        Else
            str = " convert(" & cmbCols.Text & ",\'System.String\') Like \'%" & e.sender.Text & "%\'"
         End If
    Else
        For Each dc As Col In tb.Cols
            If dc.Visible=True And dc.IsString Then
                str= str & iif(str.Length>0," Or ","") & dc.Name & " Like \'%" & e.Sender.Text & "%\'"
            End If
        Next
    End If
Else
    str=""
End If

以上语句能实现模糊搜索比如 e.sender.Text  的值为7A是可搜索出文本字段中的包含 7A连续字符串的数据

现要实现 输入，7空格A进行搜索，以上代码搜索7空格A三字符连续的结果。 需求是搜索到的结果要 *7*A*，即字符串中含 有7，A的即行，7与A之间可以0个或N多个字符

代码 如何写，数据源为SQL型

型号 Like \'A[*]%\'

关键是官方 帮助里的这代码测试 无效

 测试了一下，中间匹配的情况，无法直接用filter得到。

 必须循环判断每一个单元格的值，看是否符合，符合就记录主键的字，最后filter

经测试在SQL中字符中间可以支持使用%通配符号

SELE CT *
FROM 物料表 WHERE (规格 LIKE \'%D%P%L%\')

但是在狐表中就不行

希望官方也能支持这种查询方法