 加好友  发短信
等级：幼狐
帖子：68
积分：543
威望：0
精华：0
注册：2019/8/25 11:09:00
|
回复：（有点蓝）合并为一个字符串，然后使用代码替换...  Post By：2019/9/6 9:51:00 [显示全部帖子]
谢谢老师，已经解决问题1.但是勾选了两条记录后，生成出了俩个报表，就是说勾选一条记录会生成一个报表。 如何才能把勾选的记录合并到一起呢？ 报表模板格式如下： 公司安全质量环保检查
处罚通知单
受检单位：项目名称 编号：
|
违规事实
|
经查，你单位在施工中存在如下违规行为：
[存在问题]
|
|
违规条款
|
上述行为（现象）违反了
第 条第 款的规定。
|
|
处罚明细
|
|
责任人或单位
|
职务
|
处罚金额
|
|
[@处罚明细表,责任人或单位,1]
|
[@处罚明细表,职务,1]
|
[@处罚明细表,处罚金额,1]
|
|
[@处罚明细表,责任人或单位,2]
|
[@处罚明细表,职务,2]
|
[@处罚明细表,处罚金额,2]
|
|
[@处罚明细表,责任人或单位,3]
|
[@处罚明细表,职务,3]
|
[@处罚明细表,处罚金额,3]
|
|
[@处罚明细表,责任人或单位,4]
|
[@处罚明细表,职务,4]
|
[@处罚明细表,处罚金额,4]
|
|
[@处罚明细表,责任人或单位,5]
|
[@处罚明细表,职务,5]
|
[@处罚明细表,处罚金额,5]
|
|
[@处罚明细表,责任人或单位,6]
|
[@处罚明细表,职务,6]
|
[@处罚明细表,处罚金额,6]
|
|
[@处罚明细表,责任人或单位,7]
|
[@处罚明细表,职务,7]
|
[@处罚明细表,处罚金额,7]
|
|
|
检查组组员签字：
|
|
日期
|
|
|
检查组负责人签字：
|
|
日期
|
|
|
受处罚单位负责人签字：
|
|
日期
|
|
<!--[if !supportMisalignedColumns]-->
|
|
|
|
|
<!--[endif]-->
单击事件代码如下： 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) Next wrt.Show() '显示报表
End If [此贴子已经被作者于2019/9/6 9:52:02编辑过]
|
|
此主题相关图片如下：tim截图20190905222413.jpg
