- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]模糊搜索代码求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=22880)
-- 发布时间：2012/8/26 13:51:00
-- [求助]模糊搜索代码求助
之前看到论坛上有关模糊搜索的代码，但是引用之后无效。所以特此求助。
想要实现模糊搜索功能，不知道代码该如何写？
具体功能如下：
例如现在有一个标题为“客户”，现有当中一个数据位“广东省中山市科隆集团”，编写代码后，即便只输入“科隆”就可以找到该行内容。
望解答！
-- 发布时间：2012/8/26 14:58:00
--
用筛选吧，如：CurrentTable.Filter ＝ "[客户] Like \'*科隆*\'"
-- 发布时间：2012/8/26 15:13:00
--
以下是引用czy在2012-8-26 14:58:00的发言：
用筛选吧，如：CurrentTable.Filter ＝ "[客户] Like \'*科隆*\'"
用筛选吧，如：CurrentTable.Filter ＝ "[客户] Like \'*科隆*\'"
首先谢谢你的解答1
可能我没表达清楚，我的意思不是直接针对“科隆”这个客户，而是要写一个窗口设计的代码，这样一来就可以进行模糊搜索。
就像http://www.foxtable.com/help/topics/1058.htm中的那样，但是是模糊搜索。
望解答，谢谢
-- 发布时间：2012/8/26 16:06:00
--
Dim tb1 As String= "表名"
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim zs As String
If txt = "" Then Return
txt = "\'%" & txt & "%\'"
zs = "列名1 Like " & txt & " Or 列名2 Like " & txt & " Or 列名3 Like " & txt & " Or 列名... Like " & txt ....
Tables(tb1).Filter=zs
Tables(tb1).AutoSizeCols
在窗口设置一个文本框 ，设置一个表控件，同时设置一个按钮。在按钮的Click事件加上上述代码即可！
-- 发布时间：2012/8/26 16:26:00
--
谢谢你的解答，可能我比较笨，代码复制过去系统提示错误。
我把文件上传，麻烦大师解答，帮我谢谢代码，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.rar |
-- 发布时间：2012/8/26 17:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目19.table |
-- 发布时间：2012/9/6 9:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目19.table |
再次麻烦老师，我想弄成像你们范本中的筛选搜索那样，可以多重搜索，而不是单一条件搜索，不知道应该怎么写代码，麻烦老师再次帮忙！
-- 发布时间：2012/9/6 10:04:00
--
首先谢谢你的解答，我的意思是像http://www.foxtable.com/help/index.html?n=0106.htm中的“开始筛选”，不过我希望是能模糊搜索，而不是精确搜索。
-- 发布时间：2012/9/6 14:22:00
--
地址没弄正确，应该是这个才对：http://www.foxtable.com/help/topics/1058.htm
另外，我将我的文件上传，麻烦大师再帮一次忙。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:资料.rar |
-- 发布时间：2012/9/6 15:35:00
--
楼主，其实大家都给你答案了。我帮你做了个下例子，你看下。
代码在 筛选 按钮那。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:资料.table |