增加列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 增加列

共有2504人关注过本帖树形打印复制链接主题：增加列

阿福

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：196 积分：1357 威望：0 精华：0 注册：2015/3/25 16:42:00

增加列

Post By：2015/8/6 14:16:00 [只看该作者]

在foxtable中的所有表增加临时列可以用：

For Each t As DataTable In DataTables

If t.DataCols.Contains("锁定") = False Then

t.DataCols.Add("锁定",Gettype(Boolean))

End If

但是要求所有表中增加实实在在的列，请问那怎么办？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2015/8/6 14:20:00 [只看该作者]

http://foxtable.com/help/index.html?n=2122.htm

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/6 14:37:00 [只看该作者]

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
Dim ls As new List(of String)
For Each dt As DataTable In DataTables
    If dt.DataCols.Contains("锁定") = False Then
        With Builder.Tables(dt.name)
            .AddColumn("锁定" ,ADOXType.Boolean) '增加日期型列
        End With
        ls.add(dt.name)
    End If
Next

Builder.Close() '关闭ADOXBuilder

For Each s As String In ls
DataTables.Unload(s)
DataTables.load(s)
Next

阿福

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：196 积分：1357 威望：0 精华：0 注册：2015/3/25 16:42:00

Post By：2015/8/6 14:51:00 [只看该作者]

For Each n As Table In Tables

Dim Builder As New ADOXBuilder("pigs")

Builder.Open()

With Builder.Tables(n.Name)

.AddColumn("锁定" ,ADOXType.Boolean)

End With

Builder.Close()

出现代码执行错误，在对应所需名称或序数的集合中，未找到项目，

在ADOX.Tables.get_Item(object item)

在foxtable.adoxbuilder.get_tables(string name)

在usercode.test()

该怎么改写代码？

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/6 14:55:00 [只看该作者]

Dim Builder As New ADOXBuilder("pigs")
Builder.Open() '打开ADOXBuilder
Dim ls As new List(of String)
For Each dt As DataTable In DataTables
    If dt.Type = 3 Then
        If dt.DataCols.Contains("锁定") = False Then
            With Builder.Tables(dt.name)
                .AddColumn("锁定" ,ADOXType.Boolean) '增加日期型列
            End With
            ls.add(dt.name)
        End If
    End If
Next

Builder.Close() '关闭ADOXBuilder

For Each s As String In ls
DataTables.Unload(s)
DataTables.load(s)
Next