Dim f As New Fillerf.SourceTable = DataTables("订单明细") f.SourceCols = "年" '指定数据来源列f.DataTable = DataTables("年月分析表") f.DataCols = "年" '指定数据接收列
f.Filter = "关联列 = '" & Tables("订单表").Current("关联列") & "'"f.Fill() '填充数据