主题：工资归档问题

For Each dr AS DataRow  = DataTables("XXX") .Select("年 = “年” And 月 =“月”")

     Dim dr1 AS DataRoW = DataTables("XXX").AddNew()

     For Each dc AS DataCol In DataTables("XXX").DataCols

           dr1(dc.Name) = dr(dc.Name)

     Next

     dr1("年") = “年”

     dr1("月") = “月”+1

Next

3、如果不用这方式，还有其他方案吗？