怎么在同一个项目的多张表中增加两列并赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么在同一个项目的多张表中增加两列并赋值

共有3301人关注过本帖树形打印复制链接主题：怎么在同一个项目的多张表中增加两列并赋值

ymli

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

加好友

发短信

等级：婴狐帖子：11 积分：130 威望：0 精华：0 注册：2020/3/17 10:34:00

怎么在同一个项目的多张表中增加两列并赋值 发帖心情

Post By：2020/3/23 12:53:00 [显示全部帖子]

想将所有表中增加两列，并赋值，但是出现错误，代码如下：

For Each dt As DataTable In DataTables

Dim Names As New List (of String)

Names.add(dt.name)

For Each Name As String In Names

Output.Show (Name)

Dim Builder As New ADOXBuilder

Builder.Open() '打开ADOXBuilder

With Builder.Tables(Name)

.AddColumn("LineName" ,ADOXType.String, 20) '增加字符列,长度为20

.AddColumn("Upload" ,ADOXType.Integer) '增加整数型列

End With

For Each dr As DataRow In DataTables(name).DataRows

dr("LineName" ) = "Line1"

dr("Upload" ) = "0"

Builder.Close() '关闭ADOXBuilder

[此贴子已经被作者于2020/3/23 12:53:16编辑过]

ymli

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

加好友

发短信

等级：婴狐帖子：11 积分：130 威望：0 精华：0 注册：2020/3/17 10:34:00

Post By：2020/3/23 13:07:00 [显示全部帖子]

运行表A，表B的程序，出现如图的错误
图片点击可在新窗口打开查看

此主题相关图片如下：3.png

ymli

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

加好友

发短信

等级：婴狐帖子：11 积分：130 威望：0 精华：0 注册：2020/3/17 10:34:00

Post By：2020/3/23 16:43:00 [显示全部帖子]

按照如下代码增加列，但中途报错，如图：重启项目后，只有第一个表成功添加，其他表都没成功
图片点击可在新窗口打开查看

此主题相关图片如下：4.png

For Each dt As DataTable In DataTables

Dim Builder As New ADOXBuilder

Builder.Open() '打开ADOXBuilder

With Builder.Tables(dt.name)

.AddColumn("LineName" ,ADOXType.String, 20) '增加字符列,长度为20

.AddColumn("Upload" ,ADOXType.Integer) '增加整数型

End With

Builder.Close() '关闭ADOXBuilder

Syscmd.Project.Open(ProjectFile) '重新打开当前项目

下一主题 >> << 上一主题

主题：怎么在同一个项目的多张表中增加两列并赋值