加一天,如
Tables("日志").Filter="品名='"& Vars("pm") &"' And 封装='"& Vars("fz") &"' and 日期>=#" & Vars("ksrq") &"# and 日期<#"& cdate(Vars("jsrq")).AddDays(1) &"#"