[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Chart As WinForm.Chart

Chart= Forms("计划进度").Controls("Chart2")

Chart.ChartType = ChartTypeEnum.Gantt

Chart.SeriesList.Clear

Dim t As Table = Tables("生产统计")

Chart.Inverted = True

Chart.AxisY.DateType= True

Chart.AxisY.AnnoFormatString = "MM-dd"

Chart.AxisY.MinDate = #01/01/2018#

Chart.AxisY.MaxDate = #01/11/2018#

Chart.AxisX.GridMajorVisible = False

For Each dr As Row In t.Rows

With Chart.SeriesList

.AddGanttSeries(dr("铸锭批号"), "#" & dr("清炉时间") & "#" , "#" & dr("出锭时间") & "#")

.AddGanttLabels("M月d日")

End With

这是上旬的完成进度

Dim Chart As WinForm.Chart

Chart= Forms("计划进度").Controls("Chart2")

Chart.ChartType = ChartTypeEnum.Gantt

Chart.SeriesList.Clear

Dim t As Table = Tables("生产统计")

Chart.Inverted = True

Chart.AxisY.DateType= True

Chart.AxisY.AnnoFormatString = "MM-dd"

Chart.AxisY.MinDate = #01/11/2018#

Chart.AxisY.MaxDate = #01/21/2018#

Chart.AxisX.GridMajorVisible = False

For Each dr As Row In t.Rows

With Chart.SeriesList

.AddGanttSeries(dr("铸锭批号"), "#" & dr("清炉时间") & "#" , "#" & dr("出锭时间") & "#")

.AddGanttLabels("M月d日")

End With

中旬的进度

就是想在中旬的甘特图里不在显示上旬已完成的任务

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

就是画圈的部分

主题：[求助]