- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于word报表模板分组显示问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148125)
-- 发布时间：2020/3/31 16:25:00
-- 关于word报表模板分组显示问题
此主题相关图片如下：qq图片20200331161907.png
word报表模板能否实现分组显示数据，用WordReport能否实现？
此主题相关图片如下：qq图片20200331161947.png
-- 发布时间：2020/3/31 16:43:00
--
先筛选简答题，然后WordReport逐行把简答题BuildOne
在筛选判断题，以此类推
-- 发布时间：2020/3/31 16:53:00
-- 老师，这个word模板怎么设置，在哪写代码
老师，这个word模板怎么设置，在哪写代码
-- 发布时间：2020/3/31 17:03:00
--
做个窗口按钮，click事件写代码。建议直接把内容拼成字符串直接Replace替换好了
-- 发布时间：2020/3/31 17:12:00
-- 第一次
老师，第一次遇到这个问题，在帮助和论坛上都没有类似问题，不知如何写
-- 发布时间：2020/3/31 17:14:00
-- 求代码
要将表里所有内容，全部做到一个word里面去
-- 发布时间：2020/3/31 17:24:00
--
上传实例说明
-- 发布时间：2020/4/1 9:44:00
-- 请看一下生成试卷word模板问题
请看一下生成试卷word模板问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:试卷.zip |
-- 发布时间：2020/4/1 10:30:00
--
模板这样设计
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:试卷模板.zip |
生成模板代码
Dim tm As String = ProjectPath & "Attachments\\试卷模板.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\试卷模板.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("抽题"),tm,fl) \'定义一个WordReport
Dim sb As new StringBuilder
For Each s As String In DataTables("抽题").GetValues("类别")
sb.clear
Dim i As Integer = 1
For Each dr As DataRow In DataTables("抽题").Select("类别=\'" & s & "\'")
sb.AppendLine(i & ". " & dr("题目"))
i += 1
Next
wrt.Replace("[" & s & "]",sb.ToString)
Next
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表
-- 发布时间：2020/4/1 11:01:00
-- 挺好
老师，我试了一下效果非常好，谢谢蓝老师
[此贴子已经被作者于2020/4/1 11:16:49编辑过]