主题：异常咨询

异常来自 HRESULT:0x80040E3E Dim bName As String = CurrentTable.Name Dim Builder As New ADOXBuilder() Builder.Open() With Builder.Tables(bName) .AddColumn("核对" ,ADOXType. Boolean) End With Builder.Close()

试试这样测试

 

Dim bName As String = CurrentTable.Name
If CurrentTable.Cols.Contains("核对") = False Then
    Dim Builder As New ADOXBuilder()
    Builder.Open()
    With Builder.Tables(bName)
        .AddColumn("核对" ,ADOXType. Boolean)
    End With
    Builder.Close()
    DataTables.Unload(bname)
    DataTables.Load(bname)
End If

乙解决！谢谢