以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老大,问个关于建立临时表的代码?(已搞定)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19930)
--  作者：blackzhu
--  发布时间：2012/5/25 11:18:00
--  老大,问个关于建立临时表的代码?(已搞定)

  举个例子,这个月是5月分,我想从5月1号开始到5月31号做个临时表,列名就是:

 

 2012-05-01  2012-05-02   ............以此类推到 2012-05-31

 

 

这样,代码怎么写?

[此贴子已经被作者于2012-5-25 12:08:34编辑过]
--  作者：blackzhu
--  发布时间：2012/5/25 11:46:00
--  
搞定了.
--  作者：zrvicf
--  发布时间：2017/12/13 9:35:00
--  
怎么搞定的，用循环语句怎么出错了
--  作者：有点甜
--  发布时间：2017/12/13 10:07:00
--  
以下是引用zrvicf在2017/12/13 9:35:00的发言：
怎么搞定的，用循环语句怎么出错了

 

贴出你写的代码

 

Dim d1 As Date = "2017-12-01"
Dim d2 As Date = d1.AddMonths(1)
Dim dtb As New DataTableBuilder("统计")
Dim d As Date = d1
Do While d < d2
    dtb.AddDef(format(d, "yyyyMMdd"), Gettype(String), 32)
    d =d.adddays(1)
Loop
dtb.Build()
MainTable= Tables("统计")