dim f As New Filler f.SourceTable = DataTables("订单") '指定数据来源 f.SourceCols = "产品,客户" '指定数据来源列 f.DataTable = DataTables("统计") '指定数据接收表 f.DataCols = "产品,客户" '指定数据接收列 f.Fill() '填充数据