主题：工资归档问题

有了动态加载，不存在归档问题，一个表就行。

至于自动生成，很简单的，筛选出这个月的数据，全部克隆一下，大概就是：

 

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

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

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

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

     Next

     dr1("年") = 2010

     dr1("月") = 6

Next