以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  批量增加字段  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138361)
--  作者：yifan3429
--  发布时间：2019/7/29 17:23:00
--  批量增加字段
向所有的表增加加入以下列如何做。  上一次编辑人  上一次更新时间   完善度     3列
--  作者：有点蓝
--  发布时间：2019/7/29 17:33:00
--  
如果是添加永久列
参考：http://www.foxtable.com/webhelp/topics/2122.htm
或者使用sql处理
--  作者：yifan3429
--  发布时间：2019/7/29 23:24:00
--  
Dim Builder As New ADOXBuilder
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("系统管理")
    .AddColumn("日期" ,ADOXType.DateTime) \'增加日期型列
    .AddColumn("产品" ,ADOXType.String, 12) \'增加字符型列,长度指定为12
    .AddColumn("客户" ,ADOXType.String, 20) \'增加字符列,长度为20
    .AddColumn("数量" ,ADOXType.Integer) \'增加整数型列
    .AddColumn("备注" ,ADOXType.Text) \'增加备注列
End With
Builder.Close() \'关闭ADOXBuilder
这个是指定给单个表的
向所有的表呢  
--  作者：有点蓝
--  发布时间：2019/7/30 8:58:00
--  
循环遍历所有表逐个添加