主题：甘特图添加星期行

参考

Dim tbl As Table = Tables("任务")
Tables("窗口1_Table2").StopRedraw()
Dim StartDate As Date = tbl.Compute("Min(开始日期)")
Dim EndDate As Date = tbl.Compute("Max(结束日期)")
Dim dt As Date = StartDate
Dim Builder As New DataTableBuilder("统计")
Do
    Dim nm As String = dt.Year & "年" &  dt.Month & "月_" & dt.Day & "_" & right(Format(dt, "dddd"), 1)
    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 = 20
Next
Functions.Execute("AddGanttRows")
Tables("窗口1_Table2").ResumeRedraw()

1、具体实例发上来测试

2、Dim name = dt.Year & "年" & dt.Month & "月_" & dt.Day &  "_" & right(Format(dt, "dddd"), 1) '有星期天    是不是这里错了呀？

Dim name = dt.Year & "年" & dt.Month & "月_" & dt.Day &  "_" & right(Format(dt, "dddd"), 1)

msgbox(name)