子窗体筛选问题

cangqiong

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

chuang0321

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

cangqiong

能帮忙做一下吗？

chuang0321

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

cangqiong

你说的我还是不太明白！

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

chuang0321

改了一些，但不完全，还是你自己改吧。
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

aa 的值没传到！
真是太谢谢了。。。验证的真仔细！

cangqiong

OK了。谢谢！

chuang0321

不用谢，互相帮助是应该的