使用
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表B")
提示如下错误.
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:搜狗截图_2013-05-22_12-37-52.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2013-5/201352212392520818.png)
使用自带的增加列提示如下错误.
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:搜狗截图_2013-05-22_12-39-33.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2013-5/201352212392513361.png)
执行以下操作后造成这个问题的
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表B")
For Each dl As DataCol In DataTables("表B").Datacols
If dl.name.Contains("a") Then
.DeleteColumn(dl.name )
End If
Next
End With
Builder.Close()
Syscmd.Project.Open(ProjectFile)