主题：求代码，为每个客户增加指定日期的行。

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

 代码如下

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