Office中国论坛/Access中国论坛

标题: 已解决：实时模糊筛选子窗体所有数据时的刷新问题 [打印本页]

作者: liuqi67 时间: 2017-2-27 10:21
标题: 已解决：实时模糊筛选子窗体所有数据时的刷新问题
本帖最后由 liuqi67 于 2017-3-1 15:54 编辑

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

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

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

作者: roych 时间: 2017-2-28 11:47
经测试。没你说的问题。看图

作者: liuqi67 时间: 2017-2-28 13:40
本帖最后由 liuqi67 于 2017-2-28 13:46 编辑

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

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

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

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

作者: liuqi67 时间: 2017-3-1 08:32
继续寻求解决。

作者: yyalm 时间: 2017-3-1 13:22
本帖最后由 yyalm 于 2017-3-1 13:26 编辑

[attach]60857[/attach]

作者: liuqi67 时间: 2017-3-1 15:54
多谢yyalm的回复，已解决问题！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)