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

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

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编辑过]

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