[求助]图片（htm） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图片（htm）

共有4047人关注过本帖树形打印复制链接主题：[求助]图片（htm）

有点色

小大 41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/6 15:43:00 [只看该作者]

40楼的代码，分别加上msgbox，看弹出的值，是否正确。

苏州老街

小大 42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：636 积分：4062 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/1/6 15:49:00 [只看该作者]

此主题相关图片如下：图像 1.png

有点色

小大 43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/6 15:53:00 [只看该作者]

执行代码，看弹出什么

If Tables("图片管理.附件").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("图片管理.附件").Current.DataRow
Dim fl As String = ProjectPath & "Attachments/图片管理/" & dr("文件名")
msgbox(fl)
If FileSys.FileExists(fl) AndAlso CRCCheckFile(fl) = dr.SQLGetValue("CRC值") Then '如果本地存在同名文件且CRC校验值相同
    '则直接使用本地文件
    msgbox(222)
Else '否则从数据库提取文件
    msgbox(333)
    If dr.SQLLoadFile("附件",fl) = False Then '如果提取文件失败
        Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Return
    End If
End If
msgbox(444)
Dim Proc As New Process '打开文件
Proc.File = fl
Proc.Start()