主题：自动生成表

If DataTables.Contains("资产负债表") Then
    DataTables.Unload("资产负债表")
    DataTables.Load("资产负债表")
End If

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
Dim Products As List(Of String)
Products = DataTables("项目列表").GetValues("资产负债表", "资产负债表 is not null")
For Each Product As String In Products
    With Builder.Tables("资产负债表")
       
        If DataTables("资产负债表").dataCols.Contains(Product) = False Then
            output.show(product)
            product = product.Replace(":", "_")
            .AddColumn( Product ,ADOXType.Double ) '增加整数型列
        End If
    End With
Next
Builder.Close() '关闭ADOXBuilder

If DataTables.Contains("资产负债表") Then
    DataTables.Unload("资产负债表")
    DataTables.Load("资产负债表")
End If

If DataTables.Contains("资产负债表") Then
    DataTables.Unload("资产负债表")
    DataTables.Load("资产负债表")
End If

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
Dim Products As List(Of String)
Products = DataTables("项目列表").GetValues("资产负债表", "资产负债表 is not null","_Sortkey")
For Each Product As String In Products
    With Builder.Tables("资产负债表")
       
        If DataTables("资产负债表").dataCols.Contains(Product) = False Then
            product = product.Replace(":", "_")
            .AddColumn( Product ,ADOXType.Double ) '增加整数型列
        End If
    End With
Next
Builder.Close() '关闭ADOXBuilder

If DataTables.Contains("资产负债表") Then
    DataTables.Unload("资产负债表")
    DataTables.Load("资产负债表")
End If

外部数据源要加上数据源名字

Dim Builder As New ADOXBuilder("产品")

加入msgbox看哪句代码出错。