Foxtable(狐表)用户栏目专家坐堂 → [求助]希望在表后面增加以日期为列名的列


  共有1919人关注过本帖平板打印复制链接

主题:[求助]希望在表后面增加以日期为列名的列

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


加好友 发短信
等级:六尾狐 帖子:1287 积分:10368 威望:0 精华:1 注册:2018/1/20 12:40:00
[求助]希望在表后面增加以日期为列名的列  发帖心情 Post By:2018/8/3 10:39:00 [只看该作者]

希望在表A后面增加这些列。报错了。

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180803103820.png
图片点击可在新窗口打开查看


Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
Dim StartDate As Date = "2018-01-01"
Dim EndDate As Date = "2018-12-31"
Dim dt As Date = StartDate
'Dim Builder As New DataTableBuilder("统计")
Do
    Dim nm As String = "sp" & dt.Year & "年" &  dt.Month & "月_" & dt.Day 
  msgbox(nm)
     Builder.Tables("表A").AddColumn(nm,ADOXType.String,32)
    dt = dt.Adddays(1)
    If dt > Enddate Then
            Exit Do
    End If
Loop
Builder.Close() '关闭ADOXBuilder

 回到顶部