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

表复制的问题,求解

表一不包含日期列,将表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() '填充数据

往下怎么写

For Each dr As DataRow In DataTables("抄表记录").DataRows
dr("抄表日期") = Date.Today
Nex

或者

DataTables("抄表记录").ReplaceFor("抄表日期",Date.Today)

http://www.foxtable.com/help/topics/1532.htm

如果只是新追加的行的抄表日期改为今天，那么代码为：

Dim f As New Filler
Dim Count As Integer = DataTables("抄表记录").DataRows.Count
f.Distinct = False
f.SourceTable = DataTables("dm_kh") '指定数据来源
f.SourceCols = "客户编号,客户姓名,小区名称,水表编号,水表位数,单价,抄表员," '指定数据来源列
f.DataTable = DataTables("抄表记录") '指定数据接收表
f.DataCols = "用户编号,用户名称,小区名称,水表编号,单价,抄表员" '指定数据接收列
f.Fill() '填充数据
For i As Integer = count To DataTables("抄表记录").DataRows.Count-1
     DataTables("抄表记录").DataRows(i)("抄表日期") = Date.Today
Next

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