请教筛选时快时慢的问题

tianya0073

我做了一个窗体，如下图，在窗体上要实现筛选功能，做到既可以通过组合框下拉数据筛选，也可以通过在组合框任意输入关键字进行筛选，但现在发现在筛选时不管筛选出的数据多少，总是出现筛选时间快时慢的问题，有的时候很顺，连续反应都很快，但多筛选几个就会卡住，反应很长时间才筛选出来，有的时候却时连续反应都很慢，多选几个应又快了，再选几个又不行了。不知道什么原因，郁闷得不行了，筛选代码见下面，有哪位好人能帮解决一下，谢谢！。

Private Sub Combo28_Change()

Me.Label27.Caption = Me.Combo28.Text


On Error GoTo Err_Combo28_Change
Forms!物料需求查看.物料需求查询11_子窗体.Form.Filter = "[物料代码] LIKE '*' & Forms!物料需求查看.LABEL27.Caption & '*'"
Forms!物料需求查看.物料需求查询11_子窗体.Form.FilterOn = True



   
Exit_Combo28_Change:
    Exit Sub

Err_Combo28_Change:
    MsgBox Err.Description
    Resume Exit_Combo28_Change






End Sub

todaynew

踹两脚应该可以快一些。

cjnt007

如果 Forms!物料需求查看.LABEL27.Caption 的值是“123”的话，按你贴出来的代码推算，你的得到的筛选条件其实就是：

1. [物料代码] LIKE '*' &  123  & '*'

复制代码

而我理解应该为：

1. [物料代码] LIKE '*123*'

复制代码

tianya0073

一直被过滤、筛选时卡顿扰，最近终于发现， 当把源表中的数据全部复制出来，再将源表中的数据全删掉，最后将刚复制出来的数据粘贴进去， 然后问题解决，过滤、筛选非常顺畅，我想可能是源表之前存在多次大量数据的追加删除造成的（跟索引有关？）， 但目前采用的删除再复制的方法并不好，请教各位高手是否有更好一方法，谢谢！