Dim f As New Filler
f.SourceTable = DataTables("货物明细表")
f.SourceCols = "品名,型号,单位,数量" '指定数据来源列
f.DataTable = DataTables("发货清单")
f.DataCols = "品名,型号,单位,数量" '指定数据接收列
f.Filter = "品名 = '" & Tables("货物表").Current("品名") & "'"
f.Fill() '填充数据
为什么关联子表"货物明细表"有10行,"发货清单"接收表只能接收6行