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

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

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