主题：[求助]窗口设计好后，能否通过窗口新建空表

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)