以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求代码，为每个客户增加指定日期的行。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52749)
--  作者：ccbbdlzj
--  发布时间：2014/6/22 12:06:00
--  求代码，为每个客户增加指定日期的行。

 

 想为表中每个客户增加一条记录，日期为：2014年3月31日。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
--  作者：有点甜
--  发布时间：2014/6/22 14:18:00
--  

 代码如下

 

Dim d As Date = new Date(2014, 3, 31)
For Each n As String In DataTables("日薪月溢交易明细表").GetValues("客户姓名")
    Dim ndr As DataRow = DataTables("日薪月溢交易明细表").AddNew
    ndr("客户姓名") = n
    ndr("日期") = d
Next
--  作者：ccbbdlzj
--  发布时间：2014/6/22 15:05:00
--  
成了，非常感谢！