以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194424)

--  作者:longyanlin
--  发布时间:2024/12/9 10:18:00
--  查询
用如下代码查询:1200*2010*18出现错误,请问如改成可以查询带*或者/之类的内容呀,谢谢!
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
If Filter > "" Then
    Tables("表A").Filter = Filter
End If

--  作者:有点蓝
--  发布时间:2024/12/9 10:25:00
--  
Filter &= " or Convert(" & dc.Name & ",\'System.String\') like \'%" & e.Form.Controls("TextBox1").Text.replace("*","[*]") & "%\'"
--  作者:longyanlin
--  发布时间:2024/12/9 11:33:00
--  
谢谢