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


  共有11250人关注过本帖树形打印复制链接

主题:关于筛选的问题!如果数据量大

帅哥哟,离线,有人找我吗?
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 积分:57640 威望: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 [只看该作者]

额~  也行吧 呵呵


 回到顶部