以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么动态增加表中的列，如果存在，就不增加，执行下边的代码，如果不存在就增加，这个代码怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116669)
--  作者：hrw68529
--  发布时间：2018/3/29 10:09:00
--  怎么动态增加表中的列，如果存在，就不增加，执行下边的代码，如果不存在就增加，这个代码怎么写？
如标题：
--  作者：有点甜
--  发布时间：2018/3/29 10:13:00
--  

参考

 

Dim Builder As New ADOXBuilder
Builder.Open() \'打开ADOXBuilder
Dim t As Table = Tables("表A")
Dim flag As Boolean = False
With Builder.Tables(t.name)
    If t.Cols.Contains("测试123456") = False Then
        flag = True
        .AddColumn("测试123456" ,ADOXType.DateTime) \'增加日期型列
    End If
    If t.Cols.Contains("测试123") = False Then
        flag = True
        .AddColumn("测试123" ,ADOXType.DateTime) \'增加日期型列
    End If
End With
Builder.Close() \'关闭ADOXBuilder
If flag Then
    DataTables.unload("表A")
    DataTables.Load("表A")
end if

 

http://www.foxtable.com/webhelp/scr/2122.htm