希望在表A后面增加这些列。报错了。
此主题相关图片如下:qq截图20180803103820.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-8/20188310383799980.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