灵活变通
Dim f As New Filler
f.SourceTable = DataTables("A") ' 数据来源表.
f.SourceCols = "第一列,第二列" ' 数据来源列,不同的列用逗号分割. ‘这个条件 Tables("用料").Filter = "[计算用料] <> 0" 加在哪
f.Filter = Tables("A").Filter
f.DataTable = DataTables("B")' 数据接收表.
f.DataCols = "第一列,第二列" ' 数据接收列,不同的列用逗号分割.
f.fill()
[此贴子已经被作者于2014-4-15 11:22:41编辑过]