- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 网页浏览器的一个问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87136)
-- 发布时间：2016/7/4 16:20:00
-- 网页浏览器的一个问题
请教老师，webbrowser，是否能直接打开TABLE中的附件进行显示？
-- 发布时间：2016/7/4 16:22:00
--
webbrowser，只能显示，比如 html、xls、doc、pdf、jpg 等文件。
-- 发布时间：2016/7/4 16:26:00
--
TABLE 附件中只有WORD一种格式，怎样通过代码显示， 不是WORD报表
[此贴子已经被作者于2016/7/4 16:31:19编辑过]
-- 发布时间：2016/7/4 16:31:00
--
beforeOpenFile事件
If e.DataCol.Name = "文件名及链接" Then
If Forms("窗口1").opened Then
Forms("窗口1").show
End If
Forms("窗口1").Controls("WebBrowser1").address = e.FileName
e.cancel = True
End If
-- 发布时间：2016/7/4 23:11:00
--
老师，我做了个例子，想实现双击击窗口2 表A的当前行 网页管理器就显示 附件的WORD
我用了老师指导的代码，但是没有实现，这里的路径和双击不知道怎么设置代码，做个实例请老师看看，谢谢！
[此贴子已经被作者于2016/7/4 23:22:53编辑过]
-- 发布时间：2016/7/5 8:43:00
--
If e.DataCol.Name = "附件" Then
If not Forms("窗口2").opened Then
Forms("窗口2").show
End If
Forms("窗口2").Controls("WebBrowser1").address = e.DataCol.DefaultFolder & "\\" &e.FileName
e.cancel = True
End If
-- 发布时间：2016/7/5 9:54:00
--
大红袍老师，HYPHEN老师指导的代码，是要先打开文件管理器，点击打开后，在网页浏览器显示附件，怎样实现，不点击附件的文件管理器，
直接双击当前行，就在网页浏览器显示 附件里面对应的WORD
-- 发布时间：2016/7/5 9:58:00
--
If e.Col.Name = "附件" Then
If e.Row.IsNull("附件") = False Then
Dim path As String = e.Col.DataCol.DefaultFolder
If path = Nothing Then
path = ProjectPath & "attachments/"
End If
path = path & e.Row("附件")
If not Forms("窗口2").opened Then
Forms("窗口2").show
End If
Forms("窗口2").Controls("WebBrowser1").address = path
End If
End If
If e.Row.IsNull("附件") = False Then
Dim path As String = e.Col.DataCol.DefaultFolder
If path = Nothing Then
path = ProjectPath & "attachments/"
End If
path = path & e.Row("附件")
If not Forms("窗口2").opened Then
Forms("窗口2").show
End If
Forms("窗口2").Controls("WebBrowser1").address = path
End If
End If
-- 发布时间：2016/7/5 10:53:00
--
老师打开后，网页浏览器 显示 无法显示此页 我用的是internet explorer 11，是路径问题还是 浏览器问题
-- 发布时间：2016/7/5 10:57:00
--
msgbox看一下path的值是否正确。如果path正确，看看这里
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85258&skin=0