甘特图多时间段问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If DrawGannt Then

Dim r As Row = Tables("进口业务进度表").Rows(e.Row.Index)

Dim dt1 As Date = r("到港日期")

Dim dt2 As Date = r("换单商检")

Dim dt3 As Date = r("报关日期")

Dim dt4 As Date = r("送货日期")

Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")

If dt>=dt1 AndAlso dt<=dt2 Then

e.StartDraw()

If dt < Date.Today Then

e.Graphics.FillRectangle(Brushes.Green,e.x ,e.y + 5, e.Width, e.Height - 10)

Else

e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y + 3, e.Width, e.Height - 7)

End If

e.EndDraw()

End If

If dt>=dt2 AndAlso dt<=dt3 Then

e.StartDraw()

If dt < Date.Today Then

e.Graphics.FillRectangle(Brushes.Yellow,e.x ,e.y + 5, e.Width, e.Height - 10)

Else

e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y + 3, e.Width, e.Height - 7)

End If

e.EndDraw()

End If

If dt>=dt3 AndAlso dt<=dt4 Then

e.StartDraw()

If dt < Date.Today Then

e.Graphics.FillRectangle(Brushes.Blue,e.x ,e.y + 5, e.Width, e.Height - 10)

Else

e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y + 3, e.Width, e.Height - 7)

End If

e.EndDraw()

End If

dt4的日期不输入无法画图

此主题相关图片如下：2.png

此主题相关图片如下：3.png

Dim tbl As Table = Tables("进口业务进度表")

Tables("业务进程_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("统计")

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

Functions.Execute("AddGanttRows")

Tables("业务进程_Table2").ResumeRedraw()

是不是这个代码中漏掉中间2个时间的设置？

此主题相关图片如下：1.png

如何把当天的日期作为正在进行的时间段的Max日期，否则只有dt1的时候还是无法画出图来的。

谢谢老师

周末了，休息一下。

主题：甘特图多时间段问题