以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]动态增加列名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187872)
--  作者：huaziqiao1976
--  发布时间：2023/8/17 13:31:00
--  [求助]动态增加列名
在新增列名前，先判断表内是否存在该列名，有就忽略，没有就增加

Dim Builder As New ADOXBuilder
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("表A")
    .AddColumn("日期" ,ADOXType.DateTime) \'增加日期型列  
End With
Builder.Close() \'关闭ADOXBuilder



[此贴子已经被作者于2023/8/17 13:30:54编辑过]
--  作者：有点蓝
--  发布时间：2023/8/17 13:37:00
--  
http://www.foxtable.com/webhelp/topics/1428.htm

If DataTables("表A").DataCols.Contains("日期") = false Then
    .AddColumn("日期" ,ADOXType.DateTime)
End If
--  作者：huaziqiao1976
--  发布时间：2023/8/17 13:42:00
--  
谢谢蓝版