以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于筛选的问题!如果数据量大  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12041)

--  作者:gaoyong30000
--  发布时间: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
--  发布时间: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
--  发布时间:2011/8/20 16:49:00
--  

额~  也行吧 呵呵