if Tables("统计报表_table2").Filter > "" then
g.Filter= Tables("统计报表_table2").Filter & " And 数量 <> 0"
Else
g.Filter = "数量 <> 0"
end if