主题：向项目所有表中增加列

大家好,我现在要向项目中所有表中增加一个列,代码是这样写的

For Each dt As DataTable In DataTables
    Dt.AllowEdit = True
    If dt.SourceType = 1
        If dt.DataColS.CONTAINS("公司代码") = False
            Dim Builder As New ADOXBuilder
            Builder.Open() '打开ADOXBuilder
            With Builder.Tables(dt.name)
                .AddColumn("公司代码",ADOXType.String, 10) '增加字符型列,长度指定为12
            End With
            Builder.Close() '关闭ADOXBuilder
        End If
    End If
    If dt.SourceType = 2
        If dt.DataColS.CONTAINS("公司代码") = False
            Dim Builder As New ADOXBuilder("SERVER")
            Builder.Open() '打开ADOXBuilder
            With Builder.Tables(dt.name)
                .AddColumn("公司代码",ADOXType.String, 10) '增加字符型列,长度指定为12
            End With
            Builder.Close() '关闭ADOXBuilder
        End If
    End If
Next

代码在测试的项目中是能执行的,但是在正式的项目中执行到.AddColumn("公司代码",ADOXType.String, 10) 就不能执行了,出现了错误提示.是何原因,

请专家指教.我的项目中有内部表,外部表,表可有锁定的,不锁定的.

谢谢!

 
此主题相关图片如下：qq图片20150406184259.png