主题：动态增加列

msgbox(1)

    Dim Builder As New ADOXBuilder

msgbox(2)

    Builder.Open() '打开ADOXBuilder

    Dim Products As List(Of String)

    Products = DataTables("会计科目").GetValues("科目名称", "科目名称 is not null","_Sortkey")

msgbox(3)

    For Each Product As String In Products

msgbox(4)

msgbox(bbmc)

        With Builder.Tables(bbmc)

msgbox(bbmc)

            If DataTables(bbmc).dataCols.Contains(Product) = False Then

                output.show(product)

                product = product.Replace(":", "_")

                .AddColumn( Product ,ADOXType.Double ) '增加整数型列

            End If

        End With

    Next

Builder.Close() '关闭ADOXBuilder

Next

黄色的代码错误在那里，怎么提示如下：

Dim bbmcs() As String = {"余额横表已审","余额横表未审","发生横表已审借方","发生横表已审贷方","发生横表未审借方","发生横表未审贷方","账项调整借方","账项调整贷方","重分类调整借方","重分类调整贷方"}

For Each bbmc As String In bbmcs