主题：条件填充

以下汇总表的填充代码

dim f As New Filler
f.SourceTable = DataTables("用料") ' 数据来源表.
f.SourceCols = "材料名称，型号规格"  ' 数据来源列,不同的列用逗号分割.    这个条件 Tables("用料").Filter = "[计算用料] <> 0"  加在哪
f.DataTable = DataTables("汇总")'   数据接收表.
f.DataCols = "材料名称，型号规格" ' 数据接收列,不同的列用逗号分割.
f.ExcludeExistValue = true ' 逻辑型,设为True,排除接收表中已经存在的内容.
f.ExcludeNullValue = true '  逻辑型,设为True,排除空白值.
f.fill()