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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]预览

共有2488人关注过本帖树形打印复制链接主题：[求助]预览

天一生水

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

加好友

发短信

等级：五尾狐帖子：1137 积分：11224 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]预览 发帖心情

Post By：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

天一生水

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

加好友

发短信

等级：五尾狐帖子：1137 积分：11224 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：2018/4/8 19:36:00 [显示全部帖子]

没有弹出。

上传文件的代码如下，请老师帮助看看是哪里问题？

谢谢！

1、项目的AfterOpenProject代码：

DataTables("数据表").DataCols("文书上传").DefaultFolder = "d:\文书\" '文件添加路径

2、数据表添加文件的BeforeAttachFile代码：

e.Subfolder = e.DataRow("承办人") '将此文件存放在目录名为承办人名称的子目录中

3、列显示的内容：

此主题相关图片如下：image 1.jpg

天一生水

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

加好友

发短信

等级：五尾狐帖子：1137 积分：11224 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：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

另外，打开窗口预览时，默认显示比例为150%，怎样设置比例小一些？

谢谢！

下一主题 >> << 上一主题

主题：[求助]预览