主题：甘特图表头问题

请教老师，下面代码的多层表头，怎样增加第三行表头为星期的“一二三四五六日”    如果在内部函数改成三层表头，其他地方是否还需要改代码

例如： 2018年12月

       1   2   3  4  5 ....

       六  日  一 二 三

Dim tbl As DataTable = Tables("项目时间总计划表").DataTable
Tables("窗口1_Table2").StopRedraw()
Dim StartDate As Date = tbl.Compute("Min(计划开始时间)", "计划开始时间 Is NOT NULL")
Dim EndDate As Date = tbl.Compute("Max(计划完成时间)","计划完成时间 Is NOT NULL")
Dim dt As Date = StartDate
Dim Builder As New DataTableBuilder("统计")
Do
    Dim nm As String = dt.Year & "年" &  dt.Month & "月_" & dt.Day
    Builder.Adddef(nm,Gettype(String),1)
    dt = dt.Adddays(1)
    If dt > Enddate Then
        Exit Do
    End If
Loop
Tables("窗口1_Table2").DataSource = Builder.buildDataSource
For Each cl As Col In Tables("窗口1_Table2").Cols
    cl.width = 30
Next
Functions.Execute("AddGanttRows")
Tables("窗口1_Table2").ResumeRedraw()