Office中国论坛/Access中国论坛

标题: 子窗体筛选问题 [打印本页]

作者: cangqiong 时间: 2010-7-14 08:58
标题: 子窗体筛选问题
[attach]42676[/attach]

子窗体筛选问题!
语句好像没什么问题，为什么不能筛选呢？
帮我看看有什么问题！谢谢

作者: chuang0321 时间: 2010-7-14 09:39
问题在于你的“2034CYL组装日度管理表汇总子窗体”并没有相应的条件设置，以便按照你选择的条件进行筛选。建议你在子窗体增加筛选条件，或者在公用窗体的command6的VBA语句中增加对子窗体的条件筛选并刷新。

作者: cangqiong 时间: 2010-7-14 09:45
能帮忙做一下吗？

作者: chuang0321 时间: 2010-7-14 09:55
我看了，由于不是自己的思路，做起来比较困难。问题的关键是要在按下command6后，获得你前面所有筛选所剩余的有用条件（假定为sxtj），然后再住窗体中利用：
Me.*子窗体.Form.Filter = sxtj
Me.*子窗体.Form.FilterOn = True
来实现

作者: cangqiong 时间: 2010-7-14 10:37
你说的我还是不太明白！

实际上我只是想把上边子窗体筛出的结果。。用在下边窗体的筛选。。
模块2中变量AA是我想要的筛选的条件，，然后按照这个条件，筛选下边的窗体。
能帮我改一下吗?

作者: chuang0321 时间: 2010-7-14 10:59
改了一些，但不完全，还是你自己改吧。
1、模块中用的一些公共变量没有完成声明，比如sql5、xh、Aa
2、AA的表达式存在问题，首先不应该增加“（）”或者“[]”，其次是对于时间字段应该增加“#” “#”才能实现比较，在此就是“or”的前后都应该有空格。
3、对子窗体的刷新建议放到共用窗体的语句中
Private Sub Command6_Click()
Call SSSS
MsgBox Aa '用来验证AA是否正确
Forms!明细汇总窗体![2034CYL组装日度管理表汇总子窗体].Form.Filter = Aa '从sss中删除
Forms!明细汇总窗体![2034CYL组装日度管理表汇总子窗体].Form.FilterOn = True '从sss中删除
End Sub

除了时间表达问题，我都已经验证完毕了

作者: cangqiong 时间: 2010-7-14 11:17
aa 的值没传到！
真是太谢谢了。。。验证的真仔细！

作者: cangqiong 时间: 2010-7-14 11:42
OK了。谢谢！

作者: chuang0321 时间: 2010-7-14 12:25
不用谢，互相帮助是应该的

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