主题：动态增加外部数据源的列

1、

Dim Builder As New ADOXBuilder("实验表")
Builder.Open() '打开ADOXBuilder
With Builder.Tables("产品类型")
If DataTables("产品类型").DataCols.Contains("日期") Then
    .DeleteColumn("日期")
End If
If DataTables("产品类型").DataCols.Contains("产品") Then
    .DeleteColumn("产品")
End If
End With
Builder.Close() '关闭ADOXBuilder
DataTables.Unload("产品类型")
DataTables.Load("产品类型")

2、

Dim Builder As New ADOXBuilder("实验表")
Builder.Open() '打开ADOXBuilder
try
    With Builder.Tables("产品类型")
        .DeleteColumn("日期")
        .DeleteColumn("产品")
    End With
catch ex As exception
    msgbox(123)
    msgbox(ex.message)
End try
Builder.Close() '关闭ADOXBuilder
DataTables.Unload("产品类型")
DataTables.Load("产品类型")

Dim Builder As New ADOXBuilder("实验表")
Builder.Open() '打开ADOXBuilder
try
    With Builder.Tables("产品类型")
        .DeleteColumn("日期")
        .DeleteColumn("产品")
    End With
catch ex As exception
    msgbox(123)
    msgbox(ex.message)
End try
Builder.Close() '关闭ADOXBuilder

方法一：删除列，再新增列；

方法二：写sql语句处理

https://jingyan.baidu.com/article/1e5468f950755e484961b71c.html

https://www.cnblogs.com/h2zZhou/p/5666711.html

参考

http://www.foxtable.com/webhelp/scr/0696.htm

https://www.cnblogs.com/h2zZhou/p/5666711.html