标题：[求助]我想做一个自动查询窗口。

1楼

hongke 发表于：2011/4/7 14:38:00

我想要建一项查询项，只要输入编号，表里就显示所有相同编号的内容。请高手指点指点

2楼

狐狸爸爸 发表于：2011/4/7 15:03:00

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

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

你可以照着做一下，如果搞不定，就将你做的东西传上来，我帮你看看为啥不行。

3楼

lihe60 发表于：2011/4/7 15:12:00

帮助的自动录入就有

4楼

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

这个只要输入一个关键字就可以查找筛选!

5楼

狐狸爸爸 发表于：2011/4/7 15:39:00

呵呵，这个：

CurrentTable.Filter = ""

改为：

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

这样一致

共5 条记录, 每页显示 10 条, 页签: [1]