以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  工资归档问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=9883)
--  作者：jxkqf
--  发布时间：2011/5/12 10:08:00
--  工资归档问题

在FOXTABLE中，工资如何归档？即归档前的数据不可更改，只能作为历史数据进行读取。同时自动生成下一月的工资数据。

在FOXTABLE中如何实现这样的功能？

 
--  作者：狐狸爸爸
--  发布时间：2011/5/12 11:37:00
--  

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

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

 

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

 

 

 
--  作者：jamhuton
--  发布时间：2018/8/16 10:04:00
--  
甜老师，关于上述的代码有几个问题
1、如何选中上个月的数据，筛选出来，然后全部选中？
2、如果我选中5月的，克隆生成6月，那么7月的呢？能否用一个代码处理？

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、如果不用这方式，还有其他方案吗？
--  作者：有点甜
--  发布时间：2018/8/16 10:07:00
--  

1、为什么要全部选中？

 

2、3、做一个窗口，填入年月数据，再点击按钮拷贝。