以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]我想做一个自动查询窗口。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9399)
--  作者：hongke
--  发布时间：2011/4/7 14:38:00
--  [求助]我想做一个自动查询窗口。

我想要建一项查询项，只要输入编号，表里就显示所有相同编号的内容。请高手指点指点
--  作者：狐狸爸爸
--  发布时间：2011/4/7 15:03:00
--  

呵呵，帮助有个现成的例子：

http://help.foxtable.com/topics/1058.htm

 

你可以照着做一下，如果搞不定，就将你做的东西传上来，我帮你看看为啥不行。
--  作者：lihe60
--  发布时间：2011/4/7 15:12:00
--  
帮助的自动录入就有
--  作者：blackzhu
--  发布时间：2011/4/7 15:28:00
--  做了一个简单的简历生产器

CurrentTable.Filter = ""
Dim Filter As String
With e.Form.Controls("控件名称,一般用TEXTBOX控件")
    If .Value IsNot Nothing Then
        Filter = "\'*" & .Value & "*\'"
    End If
End With
If Filter > "" Then
    Tables("表名").Filter = "列名1 Like " & Filter & " Or 列名2 Like " & Filter & " Or 列名3 Like " & Filter & " Or 列名4 Like " & Filter & " Or 列名5 Like " & Filter 

End If

 

   这个只要输入一个关键字就可以查找筛选!
--  作者：狐狸爸爸
--  发布时间：2011/4/7 15:39:00
--  

呵呵，这个：

 

CurrentTable.Filter = ""

 

改为：

 

Tables("表名").Filter = ""

 

这样一致