Foxtable(狐表)用户栏目专家坐堂 → 增加行


  共有1197人关注过本帖树形打印复制链接

主题:增加行

美女呀,离线,留言给我吧!
wangjuan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:43 积分:426 威望:0 精华:0 注册:2016/7/27 22:04:00
增加行  发帖心情 Post By:2017/1/16 21:36:00 [只看该作者]

如何自动每天增加特定行数,例如,本身表中有6行数据,但是每天自动增加6行数据,且这几行数据和上面的都一样。唯一的是日期列不一样。怎么弄啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/16 22:16:00 [只看该作者]

类似

If DataTables("表A").Find("日期=#" & Date.Today & "#") Is Nothing Then
    Dim t As Table = Tables("表A")
    Dim idx = t.Rows.Count - 6
    For i As Integer = idx To idx+5
        Dim r As Row = t.Rows(i).Clone
        r("日期") = Date.Today
    Next
End If

 回到顶部