- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]预览 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117184)
-- 发布时间：2018/4/8 15:24:00
-- [求助]预览
换行，预览当前行的[文书上传]中的word文档，但没有反应，是何原因？
CurrentChanged代码
If e.Table.Current IsNot Nothing AndAlso Forms("预览").Opened Then
Dim path As String = DataTables("数据表").DataCols("文书上传").DefaultFolder
If path = Nothing Then
path = ProjectPath & "attachments/"
End If
path = path & e.Table.Current("文书上传")
Dim web As WinForm.WebBrowser = Forms("预览").Controls("WebBrowser1")
web.address = path
End If
-- 发布时间：2018/4/8 17:09:00
--
path这个路径有文件吗？msgbox(path)
-- 发布时间：2018/4/8 19:36:00
--
没有弹出。
上传文件的代码如下，请老师帮助看看是哪里问题？
谢谢！
1、项目的AfterOpenProject代码：
DataTables("数据表").DataCols("文书上传").DefaultFolder = "d:\\文书\\" \'文件添加路径
2、数据表添加文件的BeforeAttachFile代码：
e.Subfolder = e.DataRow("承办人") \'将此文件存放在目录名为承办人名称的子目录中
3、列显示的内容：
此主题相关图片如下：image 1.jpg
-- 发布时间：2018/4/8 22:48:00
--
加上红色代码，弹出什么？
msgbox(1)
If e.Table.Current IsNot Nothing AndAlso Forms("预览").Opened Then
msgbox(2)
如果msgbox(2)没有弹出，说明你【预览】窗口没有打开。
-- 发布时间：2018/4/9 11:41:00
--
找到原因了，可能时Return这句代码。
数据表的CurrentChanged代码中，最前面有下面一段代码。把这段代码移到预览代码的后面，就行了。暂时不知道有无其他影响。
\'副本Table之行位置联动
If e.Table.Current IsNot Nothing \'加上判断
If Forms("流程管理").Opened Then \'如果窗口已经打开
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("流程管理_Table1").FindRow(dr)
If wz >=0 Then
Tables("流程管理_Table1").Position = wz
End If
Else
Return
End If
End If
另外，打开窗口预览时，默认显示比例为150%，怎样设置比例小一些？
谢谢！
-- 发布时间：2018/4/9 12:13:00
--
回复5楼，参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89515&skin=0