- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 未能批量动态增加列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115754)
-- 发布时间：2018/3/13 22:31:00
-- [求助] 未能批量动态增加列
老师，你好！
我们需要在原有的产品表中批量增加114个数据列，想用动态修改表结构来实现。
我们在新打开的表中测试，按帮助动态修改表结构，在命令窗口复制代码并执行，但是显示错误。
此主题相关图片如下：qq图片20180313222815.png
-- 发布时间：2018/3/13 22:52:00
--
修复MDAC
-- 发布时间：2018/3/14 9:16:00
--
你如果执行多次同样的代码，就有可能报错。因为你已经添加了某列，你再添加，列名重复了，肯定会报错。
-- 发布时间：2018/3/27 22:39:00
--
老师，你好！
我们需要在原有的产品表中批量增加个数据列，想用动态修改表结构来实现。
我们在新打开的表中测试，按帮助动态修改表结构，在命令窗口复制代码并执行，但是显示错误。
此主题相关图片如下：qq图片20180327223506.png
我在查看表结构对话框中手动添加数据列，显示同样的错误。
-- 发布时间：2018/3/27 23:11:00
--
MDAC修复了没有？
-- 发布时间：2018/3/28 12:48:00
--
老师，您好！
二楼时已经修复了MDAC的（0x80040E3E）, 之后动态批量增加列没有问题。
此主题相关图片如下：qq图片2.png
-- 发布时间：2018/3/28 12:59:00
--
手动通过菜单增加列，也报错？新建的一个项目，也是这样？如果是修复mdac
http://www.foxtable.com/webhelp/scr/2715.htm
-- 发布时间：2018/3/28 14:09:00
--
老师，你好！
手动增加列可以，新建项目批量增加列也可以。
-- 发布时间：2018/3/28 14:25:00
--
老师，你好！
手动增加列可以，新建项目批量增加列也可以。
贴出你写的代码。或者执行下面代码测试，如
Dim Builder As New ADOXBuilder
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("表A")
.AddColumn("日期abc" ,ADOXType.DateTime) \'增加日期型列
End With
Builder.Close() \'关闭ADOXBuilder
-- 发布时间：2018/3/28 17:50:00
--
老师，执行了您的代码，显示同样的错误。我的代码如下：
Dim Builder As New ADOXBuilder \'批量增加生产单表中的型材数据列
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("生产单")
.AddColumn("SGLG",ADOXType.String,7)\'增加上轨拉杆编号
.AddColumn("SGLGm",ADOXType.String,10)\'增加上轨拉杆名称
.AddColumn("SGLGt",ADOXType.Text)\'增加上轨拉杆截面图
.AddColumn("SGLGx",ADOXType.String,2)\'增加上轨拉杆形状
.AddColumn("SGLGi",ADOXType.Byte)\'增加上轨拉杆数量
.AddColumn("SGLG2",ADOXType.String,7)\'增加上轨拉杆2编号
.AddColumn("SGLG2m",ADOXType.String,10)\'增加上轨拉杆2名称
.AddColumn("SGLG2t",ADOXType.Text)\'增加上轨拉杆2截面图
.AddColumn("SGLG2x",ADOXType.String,2)\'增加上轨拉杆2形状
.AddColumn("SGLG2i",ADOXType.Byte)\'增加上轨拉杆2数量
.AddColumn("XGLG",ADOXType.String,7)\'增加下轨地梁编号
.AddColumn("XGLGm",ADOXType.String,10)\'增加下轨地梁名称
.AddColumn("XGLGt",ADOXType.Text)\'增加下轨地梁截面图
.AddColumn("XGLGx",ADOXType.String,2)\'增加下轨地梁形状
.AddColumn("XGLGi",ADOXType.Byte)\'增加下轨地梁数量
.AddColumn("XGLG2",ADOXType.String,7)\'增加下轨地梁2编号
.AddColumn("XGLG2m",ADOXType.String,10)\'增加下轨地梁2名称
.AddColumn("XGLG2t",ADOXType.Text)\'增加下轨地梁2截面图
.AddColumn("XGLG2x",ADOXType.String,2)\'增加下轨地梁2形状
.AddColumn("XGLG2i",ADOXType.Byte)\'增加下轨地梁数量
.AddColumn("QSQL",ADOXType.String,7)\'增加前锁墙料编号
.AddColumn("QSQLm",ADOXType.String,10)\'增加前锁墙料名称
.AddColumn("QSQLt",ADOXType.Text)\'增加前锁墙料截面图
.AddColumn("QSQLx",ADOXType.String,2)\'增加前锁墙料形状
.AddColumn("QSQLi",ADOXType.Byte)\'增加前锁墙料数量
.AddColumn("QSQL2",ADOXType.String,7)\'增加前锁墙料2编号
.AddColumn("QSQL2m",ADOXType.String,10)\'增加前锁墙料2名称
.AddColumn("QSQL2t",ADOXType.Text)\'增加前锁墙料2截面图
.AddColumn("QSQL2x",ADOXType.String,2)\'增加前锁墙料2形状
.AddColumn("QSQL2i",ADOXType.Byte)\'增加前锁墙料2数量
.AddColumn("CSQL",ADOXType.String,7)\'增加侧锁墙料编号
.AddColumn("CSQLm",ADOXType.String,10)\'增加侧锁墙料名称
.AddColumn("CSQLt",ADOXType.Text)\'增加侧锁墙料截面图
.AddColumn("CSQLx",ADOXType.String,2)\'增加侧锁墙料形状
.AddColumn("CSQLi",ADOXType.Byte)\'增加侧锁墙料数量
.AddColumn("TL",ADOXType.String,7)\'增加套料编号
.AddColumn("TLm",ADOXType.String,10)\'增加套料名称
.AddColumn("TLt",ADOXType.Text)\'增加套料截面图
.AddColumn("TLx",ADOXType.String,2)\'增加套料形状
.AddColumn("TLi",ADOXType.Byte)\'增加套料数量
.AddColumn("TL2",ADOXType.String,7)\'增加套料2编号
.AddColumn("TL2m",ADOXType.String,10)\'增加套料2名称
.AddColumn("TL2t",ADOXType.Text)\'增加套料2截面图
.AddColumn("TL2x",ADOXType.String,2)\'增加套料2形状
.AddColumn("TL2i",ADOXType.Byte)\'增加套料2数量
End With
Builder.Close()\'关闭ADOXBuilder