Foxtable(狐表)用户栏目专家坐堂 → 关于打开附件问题


  共有2252人关注过本帖树形打印复制链接

主题:关于打开附件问题

帅哥哟,离线,有人找我吗?
裴保民
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
关于打开附件问题  发帖心情 Post By: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()


怎样控制同一个附件只能打开一次呢?不然打开同一个附件会报错,提示,未将实例化

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/15 9:31:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/2713.htm

[此贴子已经被作者于2020/9/15 9:31:15编辑过]

 回到顶部