[5分]窗体筛选参数如何更新?

 偶上QQ就看到麦田老师精彩文章:<用复选框筛选子窗体数据的示例>,收获很大。想试着运用，仍有困难：

内容：

1,frmdh对话框上有3个组合框曰：单位  品种  客户

2,平台子窗体中也包含这三个字段

目标：对话框上的3个组合框更新后（其中1-2个可更新也可为空），则子窗体按对话框条件进行筛选

我的方法代码：

Function 查询()
    Dim strWhere As String

    strWhere = strWhere & " AND 单位 like iif(isnull(forms!frmdh!单位),'*',forms!frmdh!单位) AND 品种 like iif(isnull(forms!frmdh!品种),'*', forms!frmdh!品种) AND 客户 like iif(isnull(forms!frmdh!客户),'*',forms!frmdh!客户)"

      strWhere = Mid(strWhere, 6)
     Forms!usysfrmMain!frmChild.Form.Filter = strWhere
     Forms!usysfrmMain!frmChild.Form.FilterOn = True
End Function

结果：打开平台子窗体后，第一次使用时是可以的显示相应筛选结果的，但往后则必须关闭平台子窗体重新打开才行，否则还是显示第一次的筛选结果。（重新打开对话框也没用），是不是已经有参数保存在某处？咋办啊？

    (简单做了个式样,做不下去了,在平台里是可以的,不知道怎么在这里不行了,可能是联结符的问题吧)

    感谢帮助!

点击下载此附件