主题：请教:可否用代码做复制表?

我这样可以做了,用Sendkeys复制表有个问题,就是会闪出复制表的窗口
Sendkeys.Send("" & e.Form.Controls("TextBox1").Value & "")
MainTable = Tables("表1")
Sendkeys.Send("{TAB 5}")
Sendkeys.Send("{Enter}")
Syscmd.Table.Copy()

可以复制表结构?

不可以的。

我觉得还是用Fill比较好，它的缺点是要先建一个空表，如果老六能支持当指定表名不存在时，自动生成这个表就好了（估计很难）。

如果有个导出表能导出主键,就是用代码,不是用菜单,那这个问题就好办了

我现在用这段代码可以新建一个临时表并导出到ACC数据库中,只是没有主键,所以在动态加载时就会报错,而贺老师说用菜单中的导出可以设置主键,曹版请看看,是否可以用SendKeys先代用呢?
Dim dtb As New DataTableBuilder("" & e.Form.Controls("TextBox1").Value & "")
dtb.AddDef("项目", GetType(String), 32)
dtb.AddDef("ID", GetType(Integer))
dtb.Build()
Dim ex as New Exporter
Dim s As String=e.Form.Controls("TextBox1").Value
ex.SourceTableName = s '指定导出表
ex.filepath = "c:\Data\rsgz.mdb" '指定目标文件
ex.Export() '开始导出