- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- WordReport生成Word时 表中有数据行17 结果报告就出现了17个一样的段落内容，有没有办法只有一个段落呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186064)
-- 发布时间：2023/4/4 13:16:00
-- WordReport生成Word时 表中有数据行17 结果报告就出现了17个一样的段落内容，有没有办法只有一个段落呢？
Dim tm As String = ProjectPath & "Attachments\\报告模板.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\报告模板.doc" \'指定目标文件
Dim wrt As New WordReport(tm,fl) \'注意这里无需指定表名
wrt.AddDataTable("报告","主数据源","Sele ct * from {分析报告} where 单位=\'" & e.Values("单位") & "\'")
wrt.Replace("[报告]",b.tostring)
wrt.Build() \'生成报表
wrt.Show() \'显示报表
表中有数据行17 结果统计报告就出现了17个一样的段落内容
有没有办法只有一个段落呢？
[此贴子已经被作者于2023/4/4 13:17:09编辑过]
-- 发布时间：2023/4/4 13:33:00
--
模板发上来看看。现在什么效果，需要什么结果，截图发上来看看
-- 发布时间：2023/4/4 13:44:00
-- 回复：（有点蓝）模板发上来看看。现在什么效果，需要...
word模板里面就只有如图内容
Dim tm As String = ProjectPath & "Attachments\\报告模板.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\报告模板.doc" \'指定目标文件
Dim wrt As New WordReport(tm,fl) \'注意这里无需指定表名
wrt.AddDataTable("统计报告","主数据源","Sele ct * from {分析报告} where 单位=\'" & e.Values("单位") & "\'")
wrt.Replace("[统计报告]",b.tostring)
wrt.Build() \'生成报表
wrt.Show() \'显示报表
表中有数据行17 结果统计报告就出现了17个一样的段落内容 “2023年4月数据报告” “2023年4月数据报告” “2023年4月数据报告” “2023年4月数据报告” “2023年4月数据报告”……17个“2023年4月数据报告”
有没有办法只有一个段落呢？ “2023年4月数据报告”
[此贴子已经被作者于2023/4/4 13:44:06编辑过]
-- 发布时间：2023/4/4 13:58:00
--
去掉
wrt.AddDataTable("统计报告","主数据源","Sele ct * from {分析报告} where 单位=\'" & e.Values("单位") & "\'")