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

我想以某个表的单元格内容作为表名来动态增加表，但使用ADOXBuilder的话要重新打开项目才会出现这个新表。有没有什么办法可以无需重新打开项目就可以直接生成新表的？

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

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 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中的空格要删除，论坛限制，不加空格上不来。

上面的代码能显示“订单”表了，但这个表是查询表，不能编辑，我后续需要往里面填充数据和运算的。能不能生成一个普通的表啊？

以后改进，下次更新可以

 

   Post By：2011-5-25 15:38:00 [只看该作者]

以后改进，下次更新可以

顶一个

Syscmd.Project.Open(ProjectFile) '动态创建的表和列之后,都必须重新打开项目,可以使用这个代码重新打开当前项目.