打印或打印预览时相同的行只显示一行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在打印或预览时，让列“风险点_名称”内容相同的行只显示一行。

现在是相同的行都显示，如下图：

此主题相关图片如下：捕获.jpg

现在代码如下：

......

'设置检查表表格样式

rt9 = New prt.RenderTable

rt9.Style.TextAlignVert = prt.AlignVertEnum.Center

rt9.Style.GridLines.All = New prt.LineDef(0.3,Color.blue)

rt9.Style.Spacing.Bottom = 2

rt9.CellStyle.Spacing.All = 1

rt9.Style.Font = New Font("宋体", 11)

'设置检查表表格细节

Rows9 = tbl8.DataTable.Select("企业名称 Like '*" & Forms("mainform").controls("combobox13").value & "*' and 公司级综合 = true and 作业步骤或检查项目_类型 = '安全生产' and 管控措施_内容 <> '无'","风险点_名称") '指定符合条件的行和排序方式

Dim nms9() As String = {"风险点_编号","风险点_名称","检查结果_符合性","备注","备注","备注"} '指定要显示的列即要打印的列

Dim caps9() As String = {"序号","风险点_名称","检查结果","问题描述","整改责任人","整改时限"} '自定义列名

For c As Integer = 0 To nms9.length - 1

Dim ary() As String = caps9(c).split("|")

For i As Integer = 0 To ary.length-1

rt9.cells(i, c).text = ary(i)

Next '打印的列标题自定义

rt9.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中

rt9.Cols(0).Width = 15 '设置各列宽度

rt9.Cols(1).Width = 40

rt9.Cols(2).Width = 20

rt9.Cols(3).Width = 160

rt9.Cols(4).Width = 25

rt9.Cols(5).Width = 20

For r As Integer = 0 To Rows9.Count -1

If c=0 Then

rt9.Cells(r + 1, c).Text = r+1 '增加了序号列,并自动填充

ElseIf tbl8.Cols(nms9(c)).IsBoolean

If Rows9(r)(tbl8.Cols(nms9(c)).Name) = False

rt9.Cells(r + 1, c).Text = ""

End If

Else

rt9.Cells(r + 1, c).Text = rows9(r)(tbl8.Cols(nms9(c)).Name)

End If

rt9.Rows(r+1).Height = 20 '设置行的高度

rt9.RowGroups(0,1).Header = prt.TableHeaderEnum.All

doc.Body.Children.Add(rt9)

请老师帮忙看一下，如何改一下代码。谢谢

主题：打印或打印预览时相同的行只显示一行