主题：动态修改表结构总提示出错？（已解决）

Dim Cns() As String = {"填表人","修改人","sys_流程状态","sys_流程名称","sys_传递说明","sys_编辑者"}

Dim Builder As New ADOXBuilder("EI")  '用于外部数据源

Builder.Open()

For Each t As Table In Tables

    For Each Cn As String In Cns

        If Tables(t.name).Cols.Contains(Cn) = False Then '如果表中没有此列

            With Builder.Tables(t.name)

                .AddColumn(Cn,ADOXType.String,16)

            End With

        End If

    Next

Next

Builder.Close()