很简单,加上筛选条件
dim f As New Fillerf.SourceTable = DataTables("订单") '指定数据来源f.SourceCols = "产品,客户" '指定数据来源列f.DataTable = DataTables("统计") '指定数据接收表f.DataCols = "产品,客户" '指定数据接收列f.filter="条件"
f.Fill() '填充数据