主题：[求助]Try的用法

Try
    Dim mg As New Merger
    mg.SourcePath = ProjectPath & "Template\G0112003.mdb"
    mg.SourceTableName = "数据"
    mg.DataTableName = "导入验证"
    mg.Merge()

Catch ex As Exception
    MessageBox.Show("非本系统数据,不可导入!","警告")

End Try

 

这段代码是导入一个已损坏的mdb文件，想得到一个友好的提示，这样不行，该怎么写？

 

自己顶

就是这么写的啊

把“测试.mdb”放到C盘：

我测试的结果是：

 

此主题相关图片如下：qq截图20120226192622.png

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

点击浏览该文件:管理项目35.zip

请老大测试一下！

哦，那就没有办法了，foxtable合并的时候，会自动给出这个提示。

完了！！！！

真的又没办法了吗？？？？

 

那请老大帮我分析一下这个问题：

 

1、导出的mdb数据用EncryptFile加密。

 

2、导入时用DecryptFile解密，并将解密后的文件保存到一个指定文件夹下。

 

    导入成功后删除这个已解密的文件。

 

3、如果用户导入一个其他的 mdb 文件，这时程序也会先将这个文件解密，解密后的这个非

 

   EncryptFile加密过的文件，程序自然无法识别。这个错误提示框给出了文件位置，暴露了文件位置。

 

请问如何解决这个问题？

没办法解决，只能加密的时候换个后缀名，解密之后，再改回mdb。

 

要是Merger能合并用EncryptFile加密过的文件就好了

 

老大能不能加上这个参数。

呵呵，这是不可能的

改不改后缀都一样的，只要有人随意导入其他文件，操作文件位置就会被这个错误提示告密！