关于筛选的问题！如果数据量大 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于筛选的问题！如果数据量大

共有11045人关注过本帖树形打印复制链接主题：关于筛选的问题！如果数据量大

gaoyong30000

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

加好友

发短信

等级：五尾狐帖子：1165 积分：9032 威望：0 精华：1 注册：2011/5/25 16:33:00

关于筛选的问题！如果数据量大 发帖心情

Post By：2011/8/20 15:41:00 [只看该作者]

我在窗口加了一个快速检索的文本框代码如下

Dim txt As String = e.Form.Controls("TextBox7").Text
Dim tbl As Table = Tables("客户档案")
If txt = "" Then
    tbl.filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.filter = "底盘号 Like " & txt & " Or 编号 Like " & txt & " Or 车牌号 Like " & txt & " Or 型号 Like " & txt
End If

由于这个检索框是全盘筛选的如果数据量大的话我担心会出现慢的情况！

如果有这个情况的话能否通过位置定位就可以了？要是这样的话能否再加一个状态栏能显示查询到几条记录了再添加一个按钮便于定位找到的记录！

[此贴子已经被作者于2011-8-20 15:41:40编辑过]

blackzhu

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

加好友

发短信

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

Post By：2011/8/20 15:49:00 [只看该作者]

你这个筛选要这样做比较讨厌的.改变一下筛选思路做个按钮,将码放入按钮,将文本框的数据删除:

Dim txt As String = e.Form.Controls("TextBox7").Value
Dim tbl As Table = Tables("客户档案")
If txt = "" Then
    tbl.filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.filter = "底盘号 Like " & txt & " Or 编号 Like " & txt & " Or 车牌号 Like " & txt & " Or 型号 Like " & txt
End If

gaoyong30000

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

加好友

发短信

等级：五尾狐帖子：1165 积分：9032 威望：0 精华：1 注册：2011/5/25 16:33:00

Post By：2011/8/20 16:49:00 [只看该作者]

额~ 也行吧呵呵

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

主题：关于筛选的问题！如果数据量大