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

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) \'将表格加入到报表

这个代码删除即可

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