主题：专业报告多层表头问题

请教老师，下面专业报表生成的多层表头有问题，请帮忙看看

 

Dim rt8 As New prt.RenderTable '定义一个新表格
rt8.Style.Spacing.Top = 4 '表格和前面对象的垂直间隔为4毫米
Dim tb8 As Table = Tables("DDA_Table2")
Dim ColNames8 As String() = New String(){"年度","员工姓名","项目总数","参与项目数","是否全过程_是","是否全过程_否"}
rt8.Style.Font = tb8.Font
Dim hd8 As Integer = tb8.HeaderRows '获得表头的层数
tb8.CreateReportHeader(rt8,True) '生成表头,排除隐藏列
For c8 As Integer = 0 To ColNames8.Length - 1 '逐列设置和填入内容
    rt8.Cells(0,c8).Text = tb8.Cols(ColNames8(c8)).Caption '转换列名为标题名
    rt8.Cells(0,c8).Style.TextAlignVert = prt.AlignVertEnum.Center '标题内容垂直居中
    rt8.Cells(0,c8).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居
    If tb8.Cols(ColNames8(c8)).IsNumeric OrElse tb8.Cols(ColNames8(c8)).IsDate Then '如果是数值或日期列
        rt8.Cols(c8).Style.TextAlignHorz = prt.AlignHorzEnum.Center '数据水平居中
    End If
    For r As Integer = 0 To tb8.Rows.Count -1 '开始填入该列内容
        rt8.Cells(r + hd8, c8).Text = tb8.Rows(r)(ColNames8(c8))
        rt8.Rows(r + hd8).Height = 5.5 '设置行高

    Next
Next
rt8.RowGroups(0,2).Header = prt.TableHeaderEnum.All '利用行组,将第一/二行设为表头.
rt8.RowGroups(0,2).Style.BackColor = Color.Linen 'Peachpuff '前两行的颜色设为灰色
rt8.Rows(0).Height = 6 '设置表头行高
rt8.Rows(1).Height = 6 '设置表头行高
rt8.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt8.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt8.Cols(0).Width = 20 '设置列宽
rt8.Cols(1).Width = 20 '设置列宽
rt8.Cols(2).Width = 20 '设置列宽
rt8.Cols(3).Width = 20 '设置列宽
rt8.Cols(4).Width = 39 '设置列宽
rt8.Cols(5).Width = 40 '设置列宽
rt8.Style.Gridlines.All = New prt.Linedef("0.1mm",Color.Gray) '灰色网格线
rt8.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
rt8.RowGroups(0, tb8.HeaderRows).Header = prt.TableHeaderEnum.All '利用行组功能设置表头
doc.Body.Children.Add(rt8) '将表格加入到报表

此主题相关图片如下：未标题-1.jpg

这个代码删除即可

 

rt8.Cells(0,c8).Text = tb8.Cols(ColNames8(c8)).Caption '转换列名为标题名