主题：进度条显示异常

例子测试没问题

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=118958&skin=0

上传具体实例说明问题。

要注意一点，你两个日期区间，是不能重叠的。

BuildGanttTable函数

Dim tbl As Table = Tables("生产计划")
Tables("甘特图_Table2").StopRedraw()
Dim StartDate As Date = tbl.DataTable.Compute("Min(开始日期)", "开始日期 IS NOT NULL")
Dim EndDate As Date = tbl.datatable.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("甘特图_Table2").DataSource = Builder.buildDataSource
For Each cl As Col In Tables("甘特图_Table2").Cols
    cl.width = 20
Next
Functions.Execute("AddGanttRows")
Tables("甘特图_Table2").ResumeRedraw()