以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于打开附件问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154435)

--  作者：裴保民 --  发布时间：2020/9/15 9:18:00 --  关于打开附件问题 If Tables("充值凭证表.充值凭证附件数据表").Current Is Nothing Then     Return End If Dim dr As DataRow = Tables("充值凭证表.充值凭证附件数据表").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/9/15 9:31:00 --   http://www.foxtable.com/webhelp/topics/2713.htm http://www.foxtable.com/webhelp/topics/2126.htm [此贴子已经被作者于2020/9/15 9:31:15编辑过]