主题：不妨给 临时表 也来个 [复制表] 功能

有时,创建一个临时表后,发现需要一个同样结构的内部表, 这时就需要一步一步去建立内部表了, 要是能复制这个临时表不是很方便嘛?

可以将临时表导出为文本文件后再导入

可以将导出与导入放在一个按钮中,试试这代码,首先要先建一个临时表名为:统计
Dim ex as New Exporter
ex.SourceTableName = "统计" '指定导出表
ex.FilePath = "c:\" '指定目标文件路径
ex.Format = "Delimited" '导出格式为符号分割的文本文件
ex.NewTableName = "统计" '指定文件名,注意无须扩展名
ex.Export() '开始导出
Dim ip as New Importer
ip.SourcePath = "c:-:special:1:- '指定目录
ip.SourceTableName = "统计" '指定要导入的文件"订单.txt"
ip.NewTableName ="统计2" '导入后的表名
ip.Format = "Delimited" '指定导入格式
ip.Import()

呵呵～  这个懂了。 主要是想让系统的复制表功能，对临时表也有效，而不用每次都去设计一个按钮（因为事先你不知道哪个项目的哪个临时表，是你想让它成为内部表）。

可以将表名做成全局变量或是文本框输入啊,呵呵