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

 代码如下

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