主题：[求助]动态增加表

生成好后，用OuterTableBuilder动态加载你生成的表。

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()
Dim q As new QueryBuilder
q.C订单"
q.SelectString = "Select * From {订单} "
q.Build
MainTable = Tables("订单")

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("BOM") '创建表
With tbl
    .AddColumn("序号" ,ADOXType.Integer)
    .AddColumn("材料编码" ,ADOXType.String, 50)
    .AddColumn("材料名称" ,ADOXType.String, 50)
    .AddColumn("型号规格" ,ADOXType.String, 50)
    .AddColumn("单机量" ,ADOXType.Double)
    .AddColumn("装入位号" ,ADOXType.String, 50)
    .AddColumn("分工" ,ADOXType.String, 50)
    .AddColumn("功能" ,ADOXType.String, 50)
End With
Builder.AddTable(tbl) '增加表
Builder.Close()
Dim q As new QueryBuilder
q.Table Name = "BOM"
q.SelectString = "Select * From {BOM} "
q.Build
MainTable = Tables("BOM")

 

注意：

q.Table Name = "BOM"

Table Name中的空格要删除，论坛限制，不加空格上不来。

以后改进，下次更新可以