Foxtable(狐表)用户栏目专家坐堂 → WordReport生成Word时 表中有数据行17 结果报告就出现了17个一样的段落内容,有没有办法只有一个段落呢?


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

主题:WordReport生成Word时 表中有数据行17 结果报告就出现了17个一样的段落内容,有没有办法只有一个段落呢?

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
WordReport生成Word时 表中有数据行17 结果报告就出现了17个一样的段落内容,有没有办法只有一个段落呢?  发帖心情 Post By:2023/4/4 13:16:00 [只看该作者]

    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编辑过]

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


加好友 发短信
等级:超级版主 帖子:107304 积分:545781 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/4 13:33:00 [只看该作者]

模板发上来看看。现在什么效果,需要什么结果,截图发上来看看

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)模板发上来看看。现在什么效果,需要...  发帖心情 Post By: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编辑过]

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


加好友 发短信
等级:超级版主 帖子:107304 积分:545781 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/4 13:58:00 [只看该作者]

去掉
wrt.AddDataTable("统计报告","主数据源","Sele ct * from {分析报告} where 单位='" & e.Values("单位") & "'")

 回到顶部