If FileSys.FileExists(fl) AndAlso CRCCheckFile(fl) = pts(1) Then '如果本地存在同名文件且CRC校验值相同
'则直接使用本地文件
Else '否则从数据库提取文件
If dr.SQLLoadFile("合同附件", fl) = False Then '如果提取文件失败
Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
End If
Dim ex As WinForm.WebBrowser = Forms("合同预览").Controls("WebBrowser1")
'Dim Proc As New Process '打开文件
'Proc.File = fl
'Proc.Start()
ex.Address = fl
执行时 有的电脑不能通过WebBrowser 打开文件，提示 保存，打开 对话框
有的电脑可以在WebBrowser 内直接打开文件
还有就是 SQLLoadFile 感觉比较慢
1、看什么文件。如果是word、execl文件，在foxtable安装目录里有一个Office.reg文件，双击执行一下，然后关闭重启项目。
如果是pdf文件，依赖电脑系统安装的pdf阅读器提供的组件
2、文件越大，SQLLoadFile肯定就越慢