以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  增加列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=162023)
--  作者：awnu
--  发布时间：2021/4/2 17:04:00
--  增加列
如何给一个项目中的所有表增加相同的列?
--  作者：cd_tdh
--  发布时间：2021/4/2 17:05:00
--  

遍历所有表，然后用用代码增加试试

 

 
--  作者：awnu
--  发布时间：2021/4/2 17:10:00
--  

不会啊!图片点击可在新窗口打开查看可以指点下吗?

 

 
--  作者：cd_tdh
--  发布时间：2021/4/2 17:15:00
--  

遍历好像行，我测试只能怎样

Dim Builder As New  ADOXBuilder
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("表A")
    .AddColumn("增加列" ,ADOXType.String)
End  With
With Builder.Tables("表B")
    .AddColumn("增加列" ,ADOXType.String)
End  With
With Builder.Tables("表C")
    .AddColumn("增加列" ,ADOXType.String)
End  With
--  作者：cd_tdh
--  发布时间：2021/4/2 17:23:00
--  
增加后需要重新打开项目才看打得到
--  作者：cd_tdh
--  发布时间：2021/4/2 17:28:00
--  
http://www.foxtable.com/webhelp/topics/2122.htm
--  作者：awnu
--  发布时间：2021/4/2 18:00:00
--  

With Builder.Tables("表A")
表A处放一个集合可以吗?

 
--  作者：cd_tdh
--  发布时间：2021/4/3 8:12:00
--  
你试试，我没试出来。
--  作者：有点蓝
--  发布时间：2021/4/3 9:22:00
--  
以下是引用awnu在2021/4/2 18:00:00的发言：

With Builder.Tables("表A")
表A处放一个集合可以吗?

 

不可以，只能逐个表处理

遍历所有表
Dim Builder As New  ADOXBuilder
Builder.Open() \'打开ADOXBuilder
for each dt as datatable in datatables
if dt.datacols.Contains("增加列")=false
With Builder.Tables(dt.name)
    .AddColumn("增加列" ,ADOXType.String,32)
End  With
end if
next