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))
Next
End If
Next
End Select
表中有一日期列，将本月的日期加一个月复制到新的日期，上述代码如何修改，谢谢！！
加好友 
发短信
Post By：2016/1/26 17:31:00 [只看该作者]
