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

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

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

程兴刚

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

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

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

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

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

dr("LineName" ) = "Line1"

dr("Upload" ) = "0"

Builder.Close() '关闭ADOXBuilder

程兴刚

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

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

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

其实代码都让您写出来了，只是逻辑不对，如果不是所有表，手工指定表用这个，下面指定表A、表B：

Dim Names As New List (of String)

Names.add("表A")

Names.add("表B")

For Each Name As String In Names

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

程兴刚

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

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

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

好像要重新启动，您查帮助改一下，这一段代码好像不能用：

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

dr("LineName" ) = "Line1"

dr("Upload" ) = "0"

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

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