- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助搜索怎么写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56772)
-- 发布时间：2014/9/12 8:53:00
-- 求助搜索怎么写
此主题相关图片如下：搜索.png
没有思路不知道代码怎么写。求助狐大侠帮忙！最好是做在菜单上。
-- 发布时间：2014/9/12 8:56:00
--
dim Filter as string
if e.form.controls("精确搜索").checked then FIlter="某列=\'" & e.form.controls("TextBOx1").text & "\'"
else if e.form.controls("模糊搜索").checked then
Filter="某列 like \'%" & e.form.controls("TextBOx1").text & "%\'"
end if
tables(X).FIlter=Filter
-- 发布时间：2014/9/12 9:18:00
-- 有问题啊
此主题相关图片如下：错误.png
此主题相关图片如下：错误2.png
-- 发布时间：2014/9/12 9:20:00
--
你.不能盲目复制啊.你要对应自己的状况,至少控件名要搞对啊.
你还是上例子吧.
新手建议先按部就班看一遍帮助哦.
-- 发布时间：2014/9/12 9:23:00
--
Dim Filter As String = ""
If e.form.controls("精确搜索").checked Then
FIlter="第一例 = \'" & e.form.controls("TextBOx1").text & "\'"
Else If e.form.controls("模糊搜索").checked Then
Filter="第一列 like \'%" & e.form.controls("TextBOx1").text & "%\'"
End If
Tables("表A").FIlter=Filter