Foxtable(狐表)用户栏目专家坐堂 → 如何选择对应word模板生成报表


  共有3466人关注过本帖树形打印复制链接

主题:如何选择对应word模板生成报表

帅哥哟,离线,有人找我吗?
mscf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:146 积分:1406 威望:0 精华:0 注册:2012/10/13 15:52:00
如何选择对应word模板生成报表  发帖心情 Post By:2023/9/19 11:11:00 [显示全部帖子]

1.在窗口拟设计一个表控件,内容来自“表1”,内有一列,列标题为“模板”,下面各行内容分别为a b c 
2.在Attachments下分别对应有a.doc、b.doc、 c.doc 模板。
3.模板数据来自“表2”
3.拟添加一个按钮,实现在表控件中选定一行,点击按钮则生成打印对应的模板。如,选 a 点击按钮,则根据“表2”的内容,选择a.doc模板 生成报表;选 b 点击按钮,则根据“表2”的内容,选择b.doc模板 生成报表;

求按钮代码或其它解决方式代码也可以。谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
mscf
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:146 积分:1406 威望:0 精华:0 注册:2012/10/13 15:52:00
  发帖心情 Post By:2023/9/19 11:56:00 [显示全部帖子]

谢谢蓝大图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
mscf
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:146 积分:1406 威望:0 精华:0 注册:2012/10/13 15:52:00
  发帖心情 Post By:2023/9/19 15:00:00 [显示全部帖子]

我加了个预览按钮,通过网页浏览器控件实现(代码如下)。但是有的模板6-8秒后就可以预览,有的需要10多秒,有的甚至需要数分钟(文档都不大),有的点击多次后才出现。导出文件夹下每次均生产了.mhtml文件,在浏览器中可见。如何解决网页浏览器控件响应时间问题?
Dim r As Row = Tables("文书名称").current
If r IsNot Nothing Then
Dim tmp As String = ProjectPath & "Attachments\" & r("文书名称") & ".docx" '指定模板文件
Dim rep As String = ProjectPath & "Attachments\" & r("模板") & ".doc" '指定模板文件
Dim mht As String = ProjectPath & "Reports\" & r("模板") & ".mhtml"
Dim wrt As New WordReport(Tables("表A"), tmp, rep) '定义一个WordReport
wrt.Build() 
wrt.SaveToMHT(mht)
wrt.Quit
e.Form.Controls("WebBrowser1").Address = mht
End If
[此贴子已经被作者于2023/9/19 15:01:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
mscf
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:146 积分:1406 威望:0 精华:0 注册:2012/10/13 15:52:00
  发帖心情 Post By:2023/9/19 15:04:00 [显示全部帖子]

以前生成单个模板,再预览,6-8秒就OK,现在使用表格后,控件少了,但是预览速度和成功率不行了。是不是网页浏览器需要强制刷新?
[此贴子已经被作者于2023/9/19 15:04:26编辑过]

 回到顶部