主题：[求助]在Excel报表生成前执行的统计语句，请问我该如何修改？

执行下面代码，看筛选是否正确

Dim dk As Date = Date.Today
Dim filter6 As String = " r306 < #" & dk & "# and r320 Is Null "

Tables("r3").Filter = filter6

弹出什么值？

Dim filter5 As String = " r306 >= #" & dk & "# and r320 Is Null "
Dim filter6 As String = " r306 < #" & dk & "# and r320 Is Null "
vars("sum7") = DataTables("r3").compute("sum(r300_15)", filter5)
vars("sum8") = DataTables("r3").compute("sum(r300_15)", filter6)

msgbox(vars("sum8"))

msgbox(DataTables("r3").compute("sum(r300_15)", filter6))