主题：甘特图表头问题

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

例如： 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()

Builder.Adddef(nm,Gettype(String),1)

Builder.Adddef(nm & Format(dt, "dddd").substring(2),Gettype(String),1)

老师，加上这个代码，还是在表头第二行，不是新增第三行显示“一二三四五六日”

 

 

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

改成

 

Builder.Adddef(nm,Gettype(String),1)

Builder.Adddef(nm & "_" & Format(dt, "dddd").substring(2),Gettype(String),1)

还得麻烦老师，帮忙看看这个例子

 

问题1：在内部函数加了老师指导的代码后，打开窗口，报错DRAWCELL的日期格式不对，不能生成甘特图，仅仅是表头生成了。Replace不知道怎样替换了（如果不生成第三行表头，甘特图能生成）

 

问题2：在甘特图上增加文字，计划开始时间和计划完成时间的色条绘制+文字，窗口里面的代码都没有问题，但是实际完成时间的色条上的文字未处理好，每个单元格都是字符了，要实现的是实际完成时间色条上不显示任何文字。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:甘特图绘制20181218.table

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:甘特图绘制20181218.table