主题：[求助] 未能批量动态增加列

你如果执行多次同样的代码，就有可能报错。因为你已经添加了某列，你再添加，列名重复了，肯定会报错。

手动通过菜单增加列，也报错？新建的一个项目，也是这样？如果是修复mdac

 

http://www.foxtable.com/webhelp/scr/2715.htm

 

 

贴出你写的代码。或者执行下面代码测试，如

 

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

执行这个呢？

 

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("生产单")
    .AddColumn("测试abc" ,ADOXType.DateTime) '增加日期型列
End With
Builder.Close() '关闭ADOXBuilder

 

如果报错，你的是不是外部数据源？

 

Dim Builder As New ADOXBuilder("数据源名")
Builder.Open() '打开ADOXBuilder
With Builder.Tables("生产单")
    .AddColumn("测试abc" ,ADOXType.DateTime) '增加日期型列
End With
Builder.Close() '关闭ADOXBuilder

1、压缩项目

 

http://www.foxtable.com/webhelp/scr/0006.htm

 

2、执行如这样的代码

 

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
Dim t As Table = Tables("生产单")
With Builder.Tables(t.name)
    If t.Cols.Contains("测试123456") = False Then
        .AddColumn("测试123456" ,ADOXType.DateTime) '增加日期型列
    End If
    If t.Cols.Contains("测试123") = False Then
        .AddColumn("测试123" ,ADOXType.DateTime) '增加日期型列
    End If
End With
Builder.Close() '关闭ADOXBuilder
DataTables.unload("拉手表|淋浴房产品表|客户表|生产单|订单")
DataTables.Load("拉手表|淋浴房产品表|客户表|生产单|订单")

 

3、你的列名，不能有空格，已经存在的列不能重复添加，不然都会报错。

 

表达式列，不能添加的。如果添加，也只能临时性添加，如 http://www.foxtable.com/webhelp/scr/1428.htm

 

1、内部表、access数据源，列的上限是252、253个列。

 

2、如果使用sqlserver数据源，没有列的上限。

 

3、你这样设计表是不对的吧？不可能有这么多列的表存在的，你的表设计有问题。

1、你可以把列改成行的形式，不一定要所有都做列。

 

2、sqlserver，你首先要安装sql server数据库，然后再连接使用

 

http://www.foxtable.com/webhelp/scr/2310.htm

 

回复21楼，可以的。