主题：[讨论] 关于填充器 New Filler 里面的筛选条件 filter 中引用全局变量，如何写代码？

我写了这样一段代码：

 

dim dqpz As New Filler

dqpz.SourceTable = DataTables("会计凭证查询") '指定数据来源

dqpz.SourceCols = "sszt,pzrqn,pzrqy,pzrqr,pzlx,pzdm,flxh,pzzy,kmdm,jdfx,flje,cjyh,fdzs" '指定数据来源列

dqpz.DataTable = DataTables("会计凭证") '指定数据接收表

dqpz.DataCols = "账套编号,年,月,日,pzlx,凭证编号,flxh,凭证摘要,科目代码,jdfx,flje,制证人,附件张数" '指定数据接收列

dqpz.ExcludeExistValue = true

dqpz.ExcludeNullValue = true

dqpz.Distinct = true

dqpz.filter ="pzrqn = "& vars("kn") & "and pzrqy <= "& vars("ky") & "and pzrqy >= " & vars("jy") & "pzrqr <= "& vars("kr") & "and pzrqr >= " & vars("jr")

dqpz.Fill() '填充数据


系统提示dqpz.filter 有误，我删除就好了。

我想可能是双引号和单引号的问题。

请教各位!