[浏览完整版]
标题：关于word报表模板分组显示问题
1楼
jhxb8821 发表于：2020/3/31 16:25:00
此主题相关图片如下：qq图片20200331161907.png
2楼
有点蓝 发表于：2020/3/31 16:43:00先筛选简答题，然后WordReport逐行把简答题BuildOne
在筛选判断题，以此类推
3楼
jhxb8821 发表于：2020/3/31 16:53:00老师，这个word模板怎么设置，在哪写代码
4楼
有点蓝 发表于：2020/3/31 17:03:00做个窗口按钮，click事件写代码。建议直接把内容拼成字符串直接Replace替换好了
5楼
jhxb8821 发表于：2020/3/31 17:12:00老师，第一次遇到这个问题，在帮助和论坛上都没有类似问题，不知如何写
6楼
jhxb8821 发表于：2020/3/31 17:14:00要将表里所有内容，全部做到一个word里面去
7楼
有点蓝 发表于：2020/3/31 17:24:00上传实例说明
8楼
jhxb8821 发表于：2020/4/1 9:44:00请看一下生成试卷word模板问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:试卷.zip |
9楼
有点蓝 发表于：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() '显示报表
10楼
jhxb8821 发表于：2020/4/1 11:01:00老师，我试了一下效果非常好，谢谢蓝老师
[此贴子已经被作者于2020/4/1 11:16:49编辑过]