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

但运行时总提示如下错误

此主题相关图片如下：360截图20130325114708898.jpg

不知道是哪里错了，请教大家，谢谢！

同时我在命令窗口使用这种方式出现这个情况，如果一次只是增加一列，而且现有的每个表都没有这一列的话就没有问题可以增加，若其中有一个表已经有这一列，则会报错。所以我就想在增加前先遍历表并且判断这个列是否存在表中，没有才增加，没想到这样也会提示出错。

那请问狐爸，还有没有其他办法一次性的批量增加列。

就是增加了一行排除关联列啊，其他都是一样的。但当列已经增加后，不能再运行第二次，会提示出错，当然这个错不影响什么就是了。

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

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

Builder.Open()

For Each t As Table In Tables

    If t.Isrelation = False 

        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)

                    ' .DeleteColumn("日期")

                    ' .RenameColumn("第一列","姓名")

                End With

            End If

        Next

    End If

Next