主题：[讨论] 关于填充器 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") & "#"