子窗体筛选问题

chuang0321

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

chuang0321

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

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

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

chuang0321

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