主题：请教:ACC数据库合并表时提示错误,是何原因?

合并表按钮代码

Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
End If

Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel" '指定格式
mg.SourceTableName = "员工档案" '指定要合并的表
mg.DataTableName = "员工档案" '指定接收数据的表
mg.Merge() '开始合并

此主题相关图片如下：合并表.jpg

我试试,为何不能默认Filter参数，过滤掉_Identify为空行呢?

mg.Filter="[_Identify] <> 0"
这样加了,没有提示了,但是并没执行合并命令

就是这段代码,又报其它错了,请看图片
Dim mg As New Merger
mg.SourcePath = "c:\导出文件\2009-11-3导出.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "员工档案" '指定要合并的表
mg.DataTableName = "员工档案" '指定接收数据的表
mg.Filter="[_Identify] Is Not Null"
mg.Merge() '开始合并

此主题相关图片如下：合并表2.jpg

请看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2009-11-3导出.rar

我忘了说明了,我的员工档案表是ACC外部表,我要导入的,就是我用此表保存的表,就是这段代码
Tables("员工档案").SaveExcel("c:\导出文件\"& Date.Today & "导出.xls","员工档案",False)

在数据库中_Identify是主键,但不是自动增量,因为这个表我是要做新增列处理后导出的

我知道是何原因了,主键列不是自动增量型,所以做合并时出现错误,这个问题如何解决呢?因为外部表要做新增列,新增列后再导出,目前只能是导出主键列为_Identify,而且又不能做成自动增量

没用,代码这样
e.DataRow("_Identify") = e.DataTable.Compute("Max(_Identify)") + 1

我也不想用_identify作为主键列,能自定义不是更好?我发现外部表的主键真是很麻烦
三种办法的比较:
重定向可以将_identify做为主键并自动增量,但是,重定向不能将新增的临时列导出
而导出时,用菜单导出时,可以将_identify定为主键,但不能将此列做为自动增量
用代码导出时,无法定主键,更无法定自动增量了

有何办法,在导出时自定义主键并自动增量,或者退一步,导出时将_identify定为主键并自动增量?