主题：表复制的问题,求解

表复制的问题,求解

表一不包含日期列,将表1数据复制到表2,表2有个抄表日期,将抄表日期取今天的值后自动添加到每一行的抄表日期上

Dim f As New Filler
f.Distinct = False
f.SourceTable = DataTables("dm_kh") '指定数据来源
f.SourceCols = "客户编号,客户姓名,小区名称,水表编号,水表位数,单价,抄表员," '指定数据来源列
f.DataTable = DataTables("抄表记录") '指定数据接收表
f.DataCols = "用户编号,用户名称,小区名称,水表编号,单价,抄表员" '指定数据接收列
f.Fill() '填充数据

往下怎么写

谢谢，要的就是这样的效果