主题：复制关联表

Dim f As New Filler
f.SourceTable = DataTables("订单明细")
f.SourceCols = "年" '指定数据来源列
f.DataTable = DataTables("年月分析表")
f.DataCols = "年" '指定数据接收列

f.Filter = "关联列 = '" & Tables("订单表").Current("关联列") & "'"
f.Fill() '填充数据