主题：甘特图使用

你数据修改后，请重新生成新的甘特图。

谢谢，谢谢，我试了，还是没有显示出来呢！昨天晚上看了很久，代码都没变，不知道为什么显示不出来。感谢，感谢

重新build甘特图

 

Functions.Execute("BuildGanttTable")
Functions.Execute("AddGanttRows")
Functions.Execute("SetGanntLeftCol")

我把代码删除，重启再还原，还是没有效果呢？，能帮忙看看例子吗？感谢感谢

上传实例，说明测试步骤。

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

点击浏览该文件:甘特图日期显示不完全.zip

点击图表，如果进行_开始日期没有输入日期，问题是甘特图不会显示计划_完成日期的时间，感谢 感谢。

能不帮忙看一下吗？我是真找不到问题，我和之前的代码兑换了，还是不行，感谢了 谢谢 

修改函数代码

 

Dim tbl As Table = Tables("计划表窗口_Table4")
Tables("计划表窗口_Table9").StopRedraw()
Dim s1 As Date = tbl.Compute("Min(计划_开始日期)")
Dim s2 As Date = tbl.Compute("min(进行_开始日期)")
Dim e1 As Date = tbl.Compute("max(计划_完成日期)")
Dim e2 As Date = tbl.Compute("Max(进行_完成日期)")
Dim StartDate As Date = iif(s1<s2, s1, s2)
Dim EndDate As Date = iif(e1>e2, e1, e2)
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("计划表窗口_Table9").DataSource = Builder.BuildDataSource
For Each cl As Col In Tables("计划表窗口_Table9").Cols
    cl.width = 20
Next
Functions.Execute("AddGanttRows")
Tables("计划表窗口_Table9").ResumeRedraw() '甘特图代码十二分之一

感谢 感谢 可以了 谢谢