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

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会好一点