以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请帮助修改使用标记做的word报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178463) |
||||||||
-- 作者:min-fox -- 发布时间:2022/7/5 21:40:00 -- 请帮助修改使用标记做的word报表
蓝老师:做了一个监督检查报告表, Dim tm As String = ProjectPath & "Attachments\\监督检查结果表.doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\监督检查结果表.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("基本信息"), tm, fl) \'定义一个WordReport Dim pdr As DataRow = Nothing Dim str As String = "" For Each dr As DataRow In DataTables("检查结果").Select("单位名称 = \'" & Tables("基本信息").current("餐饮服务单位名称") & "\'", "督检项目") If pdr IsNot Nothing Then str &= "对大项" & pdr("督检项目") & ",序号为:" & (dr("督检序号")) & ".督检内容:" & pdr("督检内容") & "的监督检查发现: " & pdr("备注") & chr(13) \'.addmonths(-1) End If pdr = dr Next If pdr IsNot Nothing Then str &= "未发现问题 " End If wrt.Replace("[督检项目][督检序号][督检内容][备注]", str) \'用代码计算出总的销售数量并替换模板中的合计标记 wrt.Build() \'生成报表 wrt.Show() \'显示报表 希望生成的报表 如果列"督检项目"、"督检序号"、"督检内容"、"备注"为空,在报表上不显示,只有当"备注"列为不空时,报表才显示 str &= "对大项" & pdr("督检项目") & ",序号为:" & (dr("督检序号")) & ".督检内容:" & pdr("督检内容") & "的监督检查发现: " & pdr("备注")这样的语句 目前我做的把空数据都显示在的报表上。 把实例发上去,报表模板已做好,请您帮我看看怎么改
[此贴子已经被作者于2022/7/5 21:57:43编辑过]
|
||||||||
-- 作者:有点蓝 -- 发布时间:2022/7/5 21:59:00 -- For Each dr As DataRow In DataTables("检查结果").Select("单位名称 = \'" & Tables("基本信息").current("餐饮服务单位名称") & "\' and 备注 is not null", "督检项目") |
||||||||
-- 作者:min-fox -- 发布时间:2022/7/5 22:34:00 -- 蓝老师,出报告正常,但是序号出的顺序是随机的,表做了升序,序号显示还是老样子 |
||||||||
-- 作者:有点蓝 -- 发布时间:2022/7/5 22:58:00 -- For Each dr As DataRow In DataTables("检查结果").Select("单位名称 = \'" & Tables("基本信息").current("餐饮服务单位名称") & "\' and 备注 is not null", "督检序号") |