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

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呢？我现在是把日期设为字符型只带年和月的格式