克隆行日期自动增加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 克隆行日期自动增加

共有11826人关注过本帖树形打印复制链接主题：克隆行日期自动增加

qingpuczj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：25 积分：259 威望：0 精华：0 注册：2011/11/11 1:41:00

克隆行日期自动增加 发帖心情

Post By：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呢？我现在是把日期设为字符型只带年和月的格式

小猪鑫鑫

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：832 积分：5867 威望：0 精华：6 注册：2011/5/27 11:41:00

Post By：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会好一点