以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  异常咨询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127789)
--  作者：二月龙
--  发布时间：2018/11/22 10:07:00
--  异常咨询
异常来自 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()
--  作者：有点甜
--  发布时间：2018/11/22 10:26:00
--  

试试这样测试

 

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
--  作者：二月龙
--  发布时间：2018/11/22 11:37:00
--  
乙解决！谢谢