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

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

 

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)
        dr2("日期")=dr1("日期")+1
    Next
Next

但是楼主，你用的是select,这样选出来的可能有很行，则你新增行时，也会一次新增很多行，我想用FIND会好一点

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

更规范的在这里：

 

http://www.foxtable.com/help/topics/0260.htm

 

 

我调用addmonth(),非常好用