主题：老大,问个关于建立临时表的代码?(已搞定)

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

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

这样,代码怎么写?

贴出你写的代码

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("统计")