以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]预览  (http://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