Tables("账务查询").Position = Tables("账务查询").Rows.Count - 1Dim f As New Filler
f.Distinct = False
f.SourceTable = DataTables("账务查询") '指定数据来源
f.SourceCols = "日期,车号" '指定数据来源列
f.DataTable = DataTables("结账汇总") '指定数据接收表
f.DataCols = "日期,车号" '指定数据接收列
f.Filter= "[_Identify] = Tables("账务查询").Current("_Identify")“
f.Fill()