- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问备注列的模糊查寻代碼?? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63815)
-- 发布时间：2015/1/29 13:45:00
-- 请问备注列的模糊查寻代碼??
如题
-- 发布时间：2015/1/29 13:59:00
--
同样是Like啊
-- 发布时间：2015/1/29 14:35:00
--
3Q!!
此主题相关图片如下：err.jpg
Dim filter As String = "[公司代碼] = \'" & Tables("訊息主檔").current("公司代碼") & "\'"
Dim fd As String = e.Form.Controls("TextBox6").text
Dim filter1 As String =""
If fd > "" Then
fd = fd.Replace("*","[*]")
filter1 = "說明 Like \'*" & fd & "*\'" Or "相關文件 like \'*" & fd & "*\'" Or "備註 like \'*" & fd & "*\'"
\'filter = filter & filter1
Else
filter = "[公司代碼] = \'" & Tables("訊息主檔").current("公司代碼") & "\'"
End If
Tables("訊息記錄").Filter = filter
-- 发布时间：2015/1/29 14:37:00
--
用％ 而且你似乎有数值列
-- 发布时间：2015/1/29 14:37:00
--
filter1 = "說明 Like \'*" & fd & "*\' Or 相關文件 like \'*" & fd & "*\' Or 備註 like \'*" & fd & "*\'"
-- 发布时间：2015/1/29 14:38:00
--
filter1 = "說明 Like \'％" & fd & "％\' Or 相關文件 like \'％" & fd & "％\' Or 備註 like \'％" & fd & "％\'"
-- 发布时间：2015/1/29 17:19:00
--
3Q!!