Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共116 条记录, 每页显示 10 条, 页签: [1] [2][3][4][5][6][7][8] ...[12]
[浏览完整版]

标题:关于word报表模板分组显示问题

1楼
jhxb8821 发表于:2020/3/31 16:25:00

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200331161907.png
图片点击可在新窗口打开查看
word报表模板能否实现分组显示数据,用WordReport能否实现?
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200331161947.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编辑过]
共116 条记录, 每页显示 10 条, 页签: [1] [2][3][4][5][6][7][8] ...[12]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 4 queries.