请帮助修改使用标记做的word报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目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

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

主题：请帮助修改使用标记做的word报表