已解决：实时模糊筛选子窗体所有数据时的刷新问题

liuqi67

如题，望各位高手指教，谢谢！

做了一个通过一个文本框对子窗体所有数据进行筛选的窗体，在更改事件中设置代码如下，如果不对子窗体设置排序则运行正常，由于操作需求，我对子窗体的“序号”排序定义了倒序排列设置（如下图），将子窗体序号设置倒序排列后在查询文本框中输入查询数据并删除时子窗体数据无法实时刷新，但查询结果有效，求高手指点更改示例，谢谢！


Private Sub Text1_Change()
   Dim strWhere As String
    strWhere = Trim$(Me.Text1.Text)
    If Len(strWhere) > 0 Then
        strWhere = " [序号] & [产品名称] & [采购处理结果]  Like '*" & strWhere & "*'"
    End If
    '设置子窗体的筛选器条件
    Me.物料查询_子窗体.Form.Filter = strWhere
    '应用筛选
    Me.物料查询_子窗体.Form.FilterOn = True
End Sub

liuqi67

我经过测试，采取先在查询中做好“序号”降序排列，在引用子窗体时直接使用查询做子窗体就可以解决，但我现在系统是直接引用的表做子窗体，在属性设置上想了办法都没搞定，希望高手能在此例子的基础上解决，多谢！

roych

经测试。没你说的问题。看图

liuqi67

roych 发表于 2017-2-28 11:47
经测试。没你说的问题。看图

感谢roych老师的关注及回复。

是这样，搜索时功能是有效的，比如你输入BA，然后全部用退格键删除，正常需求就是子窗体的数据需要求全部刷新还原，显示所有数据。

现在是输入BA然后删除A和B，文本框已无条件，但是子窗体会保留最后筛选B的内容，不能显示以倒序排列的所有内容。

liuqi67

继续寻求解决。

yyalm

liuqi67

多谢yyalm的回复，已解决问题！