以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72802)
--  作者：阿福
--  发布时间：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
Next

但是要求所有表中增加实实在在的列，请问那怎么办？
--  作者：有点蓝
--  发布时间：2015/8/6 14:20:00
--  
http://foxtable.com/help/index.html?n=2122.htm
--  作者：大红袍
--  发布时间：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
--  作者：阿福
--  发布时间：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()
Next


出现代码执行错误，在对应所需名称或序数的集合中，未找到项目，
在ADOX.Tables.get_Item(object item)
在foxtable.adoxbuilder.get_tables(string name)
在usercode.test()

该怎么改写代码？
--  作者：大红袍
--  发布时间：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

 
--  作者：阿福
--  发布时间：2015/8/6 15:04:00
--  

我只修改了

Dim Builder As New  ADOXBuilder（"pigs"）

其余完全黏贴大红袍的代码在命令窗口执行，还是出现一样的代码执行错误
--  作者：大红袍
--  发布时间：2015/8/6 15:05:00
--  
看5楼。
--  作者：阿福
--  发布时间：2015/8/6 15:12:00
--  
可以啦，十分感谢！！！！！