此主题相关图片如下：截图02.png
打开按钮代码：
Dim dr As DataRow = Tables("fa piao填开库存表.填开fa piao附件数据表").Current.DataRow
Dim fl As String = ProjectPath & "附件资料/" & dr("文件名称")
If FileSys.FileExists(fl) AndAlso CRCCheckFile(fl) = dr.SQLGetValue("CRC值") Then '如果本地存在同名文件且CRC校验值相同
'则直接使用本地文件
Else '否则从数据库提取文件
If dr.SQLLoadFile("附件",fl) = False Then '如果提取文件失败
Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
End If
Dim Proc As New Process '打开文件
Proc.File = fl
Proc.Start()
为什么刚打开窗体时，文件能打开，当关闭文档后再次打开时会出错，重新启动窗体后又能打开文件，第二次就会出错，是什么原因？
[此贴子已经被作者于2020/8/6 14:14:23编辑过]
加好友 
发短信
Post By：2020/8/3 22:06:00 [只看该作者]
