主题：[求助]二进制列打开文件问题

在二进制列的帮助文件实例中，打开文件时，如果已经打开了一次且未关闭该文件，当再次点击打开文件按钮时，出现下列提示，这在实际使用时不是很友好，是否有办法解决。谢谢！
此主题相关图片如下：qq截图20150423092558.png


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

实例中的代码：

 

If Tables("员工").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
Dim fl As String =  ProjectPath &  dr("_Identify") & ".doc"
If dr.SQLLoadFile("附件",fl) Then '如果提取文件成功
    Dim Proc As New Process '打开文件
    Proc.File = fl
    Proc.Start()
Else
    Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

代码没问题, 如果要判断是否打开.看2楼

或者用这个方法判断 http://www.foxtable.com/help/topics/2126.htm