求助：如何根据已勾选的行生成报表？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如图：

1.表中有很多问题，如何将已经勾选的，需要处罚的问题生成Word报表？

2.如何将这些已经勾选的问题逐条显示在Word报表中？

此主题相关图片如下：tim截图20190905222413.jpg

合并为一个字符串，然后使用代码替换：http://www.foxtable.com/webhelp/topics/2890.htm

谢谢老师，已经解决问题1.

但是勾选了两条记录后，生成出了俩个报表，就是说勾选一条记录会生成一个报表。

如何才能把勾选的记录合并到一起呢？

报表模板格式如下：

公司安全质量环保检查

处罚通知单

受检单位：项目名称编号：

违规事实

经查，你单位在施工中存在如下违规行为：

[存在问题]

违规条款

上述行为（现象）违反了第条第款的规定。

处罚明细

责任人或单位	职务	处罚金额
[@处罚明细表,责任人或单位,1]	[@处罚明细表,职务,1]	[@处罚明细表,处罚金额,1]
[@处罚明细表,责任人或单位,2]	[@处罚明细表,职务,2]	[@处罚明细表,处罚金额,2]
[@处罚明细表,责任人或单位,3]	[@处罚明细表,职务,3]	[@处罚明细表,处罚金额,3]
[@处罚明细表,责任人或单位,4]	[@处罚明细表,职务,4]	[@处罚明细表,处罚金额,4]
[@处罚明细表,责任人或单位,5]	[@处罚明细表,职务,5]	[@处罚明细表,处罚金额,5]
[@处罚明细表,责任人或单位,6]	[@处罚明细表,职务,6]	[@处罚明细表,处罚金额,6]
[@处罚明细表,责任人或单位,7]	[@处罚明细表,职务,7]	[@处罚明细表,处罚金额,7]

检查组组员签字：

日期

检查组负责人签字：

日期

受处罚单位负责人签字：

日期

单击事件代码如下：

Dim rs As List(of Row) = Tables("季度大检查记录表").GetCheckedRows

If rs.Count > 0 Then '如果存在符合条件的行

Dim tm As String = ProjectPath & "Attachments\处罚通知单.doc" '指定模板文件

Dim fl As String = ProjectPath & "Reports\处罚通知单.doc" '指定目标文件

Dim wrt As New WordReport(Tables("季度大检查记录表"),tm,fl) '定义一个WordReport

For Each r As Row In rs '逐行生成报表

wrt.BuildOne(r)

wrt.Show() '显示报表

End If

[此贴子已经被作者于2019/9/6 9:52:02编辑过]

怎么合并为一个字符串啊？是在报表模板里写代码，还是在单击事件里写代码呢？代码怎么写，有参考不？

Dim tm As String = ProjectPath & "Attachments\处罚通知单.doc" '指定模板文件

Dim fl As String = ProjectPath & "Reports\处罚通知单.doc" '指定目标文件

Dim wrt As New WordReport(Tables("季度大检查记录表"),tm,fl) '定义一个WordReport

Dim str As String = ""

im rs As List(of Row) = Tables("季度大检查记录表").GetCheckedRows

If rs.Count > 0 Then '如果存在符合条件的行

For Each r As Row In rs '逐行生成报表

str = str & vbcrlf & r("存在问题")

str = str.Trim(vbcr).Trim(vblf)

End If

wrt.Replace("[存在问题]",str)

wrt.BuildOne(Tables("主表").current)

wrt.Show() '显示报表

[此贴子已经被作者于2019/9/6 10:13:41编辑过]

老师，您好。还是不行啊，勾选的两个问题没有合并到一起，还是生成了两页，和之前一样。

公司安全质量环保检查

处罚通知单

受检单位：项目名称编号：

违规事实

经查，你单位在施工中存在如下违规行为：

西院挡土墙搭设脚手架，临空作业高度超过10米，仅下发施工图，未下发专项技术交底。（就是这部分，怎么能把勾选的两条问题合并到一处呢）

违规条款

上述行为（现象）违反了第条第款的规定。

处罚明细

责任人或单位	职务	处罚金额
张三	项目经理	100
李丽	办公室主任	200

检查组组员签字：

日期

检查组负责人签字：

日期

受处罚单位负责人签字：

日期

说明：

代码在：【隐患录入】-【报表按钮】-【单击事件】

问题在Word模板里面有红字说明

链接：https://pan.baidu.com/s/13u0uGCEGN_WtBmVbG5nU1Q

提取码：9ax9

改为5楼的代码啊！

下次把项目文件.table和word模板发上来即可。不需要这个项目其他文件。

已改。但是提示出错

此主题相关图片如下：tim截图20190906162042.jpg

主题：求助：如何根据已勾选的行生成报表？