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

    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()

打开是一个初始表：表头结构为第一列~第十列  

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

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