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

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

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

苏州老街

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

加好友

发短信

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

Post By：2017/1/4 10:59:00 [显示全部帖子]

老师，图片是从这个文件夹调出的I:\管理\htm文件\图片库\缴费信息，htm文件是从这里调出的I:\管理\htm文件。下面代码不知怎样修改。

Dim file As String = ProjectPath & "show"

With Tables("htm数据文件")

Dim html As String = FileSys.ReadAllText(file)

html = html.Replace("{body}", .current("内容")).Replace("{title}", .current("标题"))

FileSys.WriteAllText(file & ".html", html, False)

e.Form.Controls("WebBrowser1").Address = file & ".html"

e.Form.text=.current("标题") '窗口标题改为文章标题

End With

苏州老街

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

加好友

发短信

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

Post By：2017/1/4 11:24:00 [显示全部帖子]

老师，还是报错。

.NET Framework 版本：2.0.50727.3053

Foxtable 版本：2016.7.29.1

错误所在事件：窗口,显示,AfterLoad

详细错误信息：

Could not find file 'I:\管理\show'.

苏州老街

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

加好友

发短信

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

Post By：2017/1/6 8:10:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多文件二进制列.table

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

苏州老街

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

加好友

发短信

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

Post By：2017/1/6 9:30:00 [显示全部帖子]

老师，html的文件在狐表浏览器控件中调阅图片文件很慢，现在我想用二进制列的多文件管理来管理图片文件。我想要老师帮忙修改图片的存储目录，不想直接存放在狐表的项目中，而是存放在子目录里。

苏州老街

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

加好友

发短信

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

Post By：2017/1/6 10:35:00 [显示全部帖子]

以下是引用苏州老街在2017/1/6 8:10:00的发言：

下载信息 [文件大小：288.0 KB 下载次数：2]
点击浏览该文件:多文件二进制列.table

此主题相关图片如下：2.png
我是想修改二进制列图片存放的地址。图片点击可在新窗口打开查看

[此贴子已经被作者于2017/1/6 10:36:16编辑过]

苏州老街

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

加好友

发短信

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

Post By：2017/1/6 10:44:00 [显示全部帖子]

老师，看不懂啊。谢谢老师了。

苏州老街

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

加好友

发短信

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

Post By：2017/1/6 11:05:00 [显示全部帖子]

老师，代码有那几个地方有修改的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:eventcode.rar

苏州老街

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

加好友

发短信

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

Post By：2017/1/6 12:26:00 [显示全部帖子]

老师，上传的文件已修改了，没用。

苏州老街

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

加好友

发短信

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

Post By：2017/1/6 15:03:00 [显示全部帖子]

老师，打开按钮代码修改后报错。

If Tables("图片管理.附件").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("图片管理.附件").Current.DataRow
Dim fl As String = ProjectPath & "I:\管理\Attachments\图片管理" & 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()