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

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

1楼

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编辑过]

2楼

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

3楼

gaoyong30000 发表于：2011/8/20 16:49:00

额~ 也行吧呵呵

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