[求助]我想做一个自动查询窗口。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我想做一个自动查询窗口。

共有14131人关注过本帖树形打印复制链接主题：[求助]我想做一个自动查询窗口。

hongke

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：1 积分：76 威望：0 精华：0 注册：2011/4/6 20:07:00

[求助]我想做一个自动查询窗口。 发帖心情

Post By：2011/4/7 14:38:00 [只看该作者]

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

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/4/7 15:03:00 [只看该作者]

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

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

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

lihe60

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6911 积分：43773 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/4/7 15:12:00 [只看该作者]

帮助的自动录入就有

blackzhu

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

做了一个简单的简历生产器 发帖心情

Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/4/7 15:39:00 [只看该作者]

呵呵，这个：

CurrentTable.Filter = ""

改为：

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

这样一致

下一主题 >> << 上一主题

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