批量增加列出现错误,
代码如下:
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("首页")
Dim i As Integer
For i = 1 To 365
.AddColumn("日需求稼动时间_D" & i, ADOXType.Integer) '增加整数型列
Next
End With
Builder.Close() '关闭ADOXBuilder
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("设备汇总表")
Dim i As Integer
For i = 1 To 30
Dim t As String = "日需求稼动时间_4月" & i & "日"
.AddColumn(t, ADOXType.Double) '增加双精度型列
Next
End With
Builder.Close() '关闭ADOXBuilder
我代码修改成上面的这个,还是提示一样的错误。
我现在知道了,是之前运行过程序已经增加了代码里的一部分列,达到200列了,后面即使增加1列也会出现这个错误。谢谢老师!