以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  克隆行日期自动增加  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15013)
--  作者：qingpuczj
--  发布时间：2011/12/9 16:40:00
--  克隆行日期自动增加

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)
     Next
Next

 

通过上面语句可以实现克隆行，请教如何能使新增的行的日期自动+1呢？我现在是把日期设为字符型只带年和月的格式

 
--  作者：小猪鑫鑫
--  发布时间：2011/12/9 16:49:00
--  

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会好一点
--  作者：qingpuczj
--  发布时间：2011/12/9 20:08:00
--  
。。。我一直认为字符型不能和数字一起运算，回家去试试了，谢谢。事业单位的工资一般月份之间变化不大，所以我采用直接选择当前时间段的数据直接克隆生成下个月的数据
--  作者：czy
--  发布时间：2011/12/10 0:37:00
--  

更规范的在这里：

 

http://www.foxtable.com/help/topics/0260.htm

 

 
--  作者：qingpuczj
--  发布时间：2011/12/11 22:58:00
--  谢谢非常好用
我调用addmonth(),非常好用