主题：克隆行日期自动增加

For Each dr1 As DataRow In DataTables("工资明细").Select("[日期]=MAX([日期])")
     Dim dr2 As DataRow = DataTables("工资明细").AddNew()
     For Each dc As DataCol In DataTables("工资明细").DataCols
           dr2(dc.name) = dr1(dc.name)
     Next
Next

 

通过上面语句可以实现克隆行，请教如何能使新增的行的日期自动+1呢？我现在是把日期设为字符型只带年和月的格式

 

。。。我一直认为字符型不能和数字一起运算，回家去试试了，谢谢。事业单位的工资一般月份之间变化不大，所以我采用直接选择当前时间段的数据直接克隆生成下个月的数据

我调用addmonth(),非常好用