表复制的问题,求解
表一不包含日期列,将表1数据复制到表2,表2有个抄表日期,将抄表日期取今天的值后自动添加到每一行的抄表日期上
Dim f As New Fillerf.Distinct = Falsef.SourceTable = DataTables("dm_kh") '指定数据来源f.SourceCols = "客户编号,客户姓名,小区名称,水表编号,水表位数,单价,抄表员," '指定数据来源列f.DataTable = DataTables("抄表记录") '指定数据接收表f.DataCols = "用户编号,用户名称,小区名称,水表编号,单价,抄表员" '指定数据接收列f.Fill() '填充数据
往下怎么写