以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  请帮助修改使用标记做的word报表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178463)

--  作者：min-fox --  发布时间：2022/7/5 21:40:00 --  请帮助修改使用标记做的word报表  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目51.rar 蓝老师：做了一个监督检查报告表， 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("备注")这样的语句 目前我做的把空数据都显示在的报表上。 把实例发上去，报表模板已做好，请您帮我看看怎么改  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目51.table 此主题相关图片如下：图片48.png [此贴子已经被作者于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", "督检序号")