Foxtable(狐表)用户栏目专家坐堂 → [求助]通过addcolumn添加列能否指定具体的位置


  共有1619人关注过本帖树形打印复制链接

主题:[求助]通过addcolumn添加列能否指定具体的位置

帅哥哟,离线,有人找我吗?
cqlwsam
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
[求助]通过addcolumn添加列能否指定具体的位置  发帖心情 Post By:2018/11/28 7:18:00 [只看该作者]

如题。我通过在addcolumn表1中增加一列(名称),是否通过代码的方式指定添加的列位于另一列(日期)的前面。谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4648 积分:33890 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/11/28 7:52:00 [只看该作者]

添加后移动

 回到顶部
帅哥哟,离线,有人找我吗?
cqlwsam
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2018/11/28 8:35:00 [只看该作者]

我是说通过代码的方式。就如:index。但addcolumn没有此属性。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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()


 回到顶部