请问：数据表合并后，如果出现多合并了一次或几次，如何解决，即保证重复行删除。另外下列合并数据库代码，如何加入下面类似的提示框？

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName \'指定数据文件
    ip.SourceTableName = "C:\\foxtable\\Trial\\坯布管理\\Reports\\坯布信息" \'指定要导入的表
    ip.NewTableName ="C:\\foxtable\\Trial\\坯布管理\\Reports\\坯布信息1" \'导入后的表名
    ip.Import()
End If

\'提示选择，判断是否合并

Dim Result As DialogResult
Result = MessageBox.Show("警告:本操作仅限于数值累计,执行后将累计数值!" & vbcrlf & "单击\'是\'累计,单击\'否\'退出","提示",MessageBoxButtons.YesNo)
If Result = DialogResult.Yes Then
    Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
    dlg.Filter= "Access文件|*.mdb" \'设置筛选器
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName \'指定数据文件
    ip.SourceTableName = "C:\\foxtable\\Trial\\坯布管理\\Reports\\坯布信息" \'指定要导入的表
    ip.NewTableName ="C:\\foxtable\\Trial\\坯布管理\\Reports\\坯布信息1" \'导入后的表名
    ip.Import()
End If

出现下列问题

此主题相关图片如下：136.jpg

谢谢

好像你上面的提示，没有任何意义，单击否也会合并的。