Foxtable(狐表)用户栏目专家坐堂 → 如何用代码实现新建指定名称的新表


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

主题:如何用代码实现新建指定名称的新表

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


加好友 发短信
等级:婴狐 帖子:12 积分:183 威望:0 精华:0 注册:2018/9/19 21:11:00
如何用代码实现新建指定名称的新表  发帖心情 Post By:2018/10/12 13:02:00 [只看该作者]

新手求助,突然发现没有增加新表的命令代码,如何实现窗口按钮点击后自动生成指定新表

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/12 15:08:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:12 积分:183 威望:0 精华:0 注册:2018/9/19 21:11:00
  发帖心情 Post By:2018/10/12 15:56:00 [只看该作者]

实测可以这样新加入表,就是要关掉再打开比较麻烦,关掉再打开有相关代码吗,谢谢大神

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/12 15:59:00 [只看该作者]

以下是引用zn3141在2018/10/12 15:56:00的发言:
实测可以这样新加入表,就是要关掉再打开比较麻烦,关掉再打开有相关代码吗,谢谢大神

 

参考

 

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") '创建表
With tbl
    .AddColumn("日期" ,ADOXType.DateTime)
    .AddColumn("产品" ,ADOXType.String, 12)
    .AddColumn("客户" ,ADOXType.String, 20)
    .AddColumn("数量" ,ADOXType.Integer)
    .AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) '增加表
Builder.Close()
DataTables.load("订单")


 回到顶部