以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]动态增加列名  (http://foxtable.net/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
--  
谢谢蓝版