以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口设计好后，能否通过窗口新建空表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67986)
--  作者：twef
--  发布时间：2015/5/7 15:53:00
--  [求助]窗口设计好后，能否通过窗口新建空表
窗口设计好后，能否通过窗口新建空表，要求空表包含窗口里的内容
--  作者：Bin
--  发布时间：2015/5/7 15:55:00
--  
永久增加表 http://www.foxtable.com/help/topics/2122.htm
--  作者：twef
--  发布时间：2015/5/7 16:23:00
--  
再请教一下，新建表的表名才能实现根据自己需要由文本框来输入
--  作者：大红袍
--  发布时间：2015/5/7 16:27: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("订单")

 

 

改成

 

Dim Builder As New ADOXBuilder() \'要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable(e.Form.Controls("TextBox1").Text) \'创建表
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(e.Form.Controls("TextBox1").Text)