以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表复制的问题,求解  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74592)
--  作者：xcxxm
--  发布时间：2015/9/15 0:31:00
--  表复制的问题,求解

表复制的问题,求解

 

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

 

往下怎么写

[此贴子已经被作者于2015/9/15 0:33:28编辑过]
--  作者：Hyphen
--  发布时间：2015/9/15 9:12:00
--  

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

 

或者

 

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

 

http://www.foxtable.com/help/topics/1532.htm
--  作者：狐狸爸爸
--  发布时间：2015/9/15 11:31:00
--  

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

 

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
--  作者：xcxxm
--  发布时间：2015/9/15 12:52:00
--  

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