请帮我修改代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name

Case "结账"

Dim dms As List (of DataRow)

dms = DataTables("工资数据录入").Select("[职员代码] = '" & e.DataRow("职员代码") & "'")

For Each dm As DataRow In dms

If dm("结账") = True Then

Dim dw As DataRow

Dim d As Date

d = new Date(dw("日期"))

'd = new Date(d.Year, d.Month, 1)

' Dim month As Integer = d.Month

Dim nma() As String = {"部门名称","职员代码","职员姓名","基础工资","岗位工资","工龄工资","档案工资","享受比例","内退补贴","交通费","洗理费","养老金基数","医疗保险基数","大病保险","公积金","所得税起征点","银行卡号"} 'A表数据来源列

Dim nmb() As String = {"部门名称","职员代码","职员姓名","基础工资","岗位工资","工龄工资","档案工资","享受比例","内退补贴","交通费","洗理费","养老金基数","医疗保险基数","大病保险","公积金","所得税起征点","银行卡号"} 'B表数据接收列

dr = DataTables("工资数据录入").find("[职员代码] = '" & e.DataRow("职员代码") & "'")

If dw Is Nothing Then

dw = DataTables("工资数据录入").addnew

End If

dw("日期") = d.addMonths(1)

For i As Integer = 0 To nma.Length - 1

dw(nmb(i)) = dm (nma(i))

End If

End Select

表中有一日期列，将本月的日期加一个月复制到新的日期，上述代码如何修改，谢谢！！

主题：请帮我修改代码