主题：[求助]模糊搜索代码求助

之前看到论坛上有关模糊搜索的代码，但是引用之后无效。所以特此求助。

想要实现模糊搜索功能，不知道代码该如何写？

具体功能如下：

例如现在有一个标题为“客户”，现有当中一个数据位“广东省中山市科隆集团”，编写代码后，即便只输入“科隆”就可以找到该行内容。

望解答！

用筛选吧，如：CurrentTable.Filter ＝ "[客户] Like '*科隆*'"

首先谢谢你的解答1

可能我没表达清楚，我的意思不是直接针对“科隆”这个客户，而是要写一个窗口设计的代码，这样一来就可以进行模糊搜索。

就像http://www.foxtable.com/help/topics/1058.htm中的那样，但是是模糊搜索。

望解答，谢谢

 

 

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事件加上上述代码即可！

谢谢你的解答，可能我比较笨，代码复制过去系统提示错误。

我把文件上传，麻烦大师解答，帮我谢谢代码，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目19.table

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目19.table

再次麻烦老师，我想弄成像你们范本中的筛选搜索那样，可以多重搜索，而不是单一条件搜索，不知道应该怎么写代码，麻烦老师再次帮忙！

首先谢谢你的解答，我的意思是像http://www.foxtable.com/help/index.html?n=0106.htm中的“开始筛选”，不过我希望是能模糊搜索，而不是精确搜索。