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

请教:可否用代码做复制表?
或是用SendKeys模拟按键动作

我现在也是想用导入导出的办法,只是导入目前有问题,看看贺老师何时能解决好了

我现在是用生成临时表然后导出的办法,只是导出到ACC中的表,无法确定主键,不知贺老师能否给导出加上主键

Sendkeys.Send("{TAB 5}")

我就是这一句搞不好,呵呵

有个问题,如果输入表名称?

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

可以复制表结构?

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

我现在用这段代码可以新建一个临时表并导出到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() '开始导出