以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  工资归档问题  (http://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、做一个窗口,填入年月数据,再点击按钮拷贝。