Foxtable(狐表)用户栏目专家坐堂 → 时间序列生成代码


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

主题:时间序列生成代码

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/12 8:56:00 [显示全部帖子]

方法一:序列填充 http://www.foxtable.com/webhelp/scr/0140.htm

 

方法二:写代码,如

 

Dim d1 As Date = "2019-01-01"
Dim d2 As Date = "2019-01-13"
Do While d1 <= d2
    Dim nr As Row = Tables("表A").addnew
    nr("日期") = d1
    d1 = d1.adddays(1)
Loop


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/12 13:35:00 [显示全部帖子]

Tables("表a").StopRedraw
Dim d1 As Date = "2019-01-01"
Dim d2 As Date = "2024-05-13"
Do While d1 <= d2
    Dim nr As Row = Tables("表a").addnew
    nr("第一列") = d1
    d1 = d1.adddays(1)
Loop
Tables("表a").ResumeRedraw

 回到顶部