以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]通过addcolumn添加列能否指定具体的位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128057)
--  作者：cqlwsam
--  发布时间：2018/11/28 7:18:00
--  [求助]通过addcolumn添加列能否指定具体的位置
如题。我通过在addcolumn表1中增加一列（名称），是否通过代码的方式指定添加的列位于另一列（日期）的前面。谢谢！
--  作者：y2287958
--  发布时间：2018/11/28 7:52:00
--  
添加后移动
--  作者：cqlwsam
--  发布时间：2018/11/28 8:35:00
--  
我是说通过代码的方式。就如：index。但addcolumn没有此属性。
--  作者：有点甜
--  发布时间：2018/11/28 8:52:00
--  

参考代码

 

Dim bName As String = CurrentTable.Name
If CurrentTable.Cols.Contains("核对") = False Then
    Dim Builder As New ADOXBuilder()
    Builder.Open()
    With Builder.Tables(bName)
        .AddColumn("核对" ,ADOXType. Boolean)
    End With
    Builder.Close()
    DataTables.Unload(bname)
    DataTables.Load(bname)
End If
Tables(bname).Cols("核对").Move(1)
Tables(bname).NeedSaveSetting = True
Syscmd.Project.Save()