各位狐爸老师：

     请问如何复制一个项目的表包括表结构（含表达式）到另外一个新建项目中？

     另：一张表如何复制同样设置的列（只是列的标题不一样，列属性包括表达式都一样）？单独一个个去手动加实在太累、繁杂。

    谢谢！

在原项目中建张表，记录你想复制到其他项目中的各表的结构。

然后导出、导入到另一个项目中。

参考以下代码，根据表中条件，新建表。

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()

这样很麻烦哦。如果一张表的内容较多，就会很复杂。

求更好的解决办法。还有如何复制列，这也很需要。急求！！！！