专家坐堂-图表显示项目执行天数Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Chart As WinForm.Chart

Chart= Forms("项目进度表").Controls("Chart1")

Chart.ChartType = ChartTypeEnum.Gantt \'图表类型为甘特图

Chart.Inverted = True \'对调X轴和Y轴位置

Chart.AxisY.DateType= True \'Y轴为日期型

Chart.AxisY.ClearValueLabel

Chart.SeriesList.Clear

Chart.AxisY.AnnoFormatString = "yyyy-MM" \'设置Y轴的标示格式

Chart.AxisY.MinDate = DataTables("项目进度表").Compute("Min(开始日期)") \',Filter)\'设置Y轴的起始日期

Chart.AxisY.MaxDate = DataTables("项目进度表").Compute("Max(完成日期)") \',Filter)\'设置Y轴的终止日期

Chart.AxisX.GridMajorVisible = False \'隐藏X轴的网格线

With Chart.SeriesList

For Each dw As String In DataTables("项目进度表").GetValues("项目阶段")

Dim ls1 As new List(Of Date)

Dim ls2 As new List(Of Date)

For Each dr As DataRow In DataTables("项目进度表").Select("项目阶段 = \'" & dw & "\'")

ls1.Add(dr("开始日期"))

ls2.add(dr("完成日期"))

.AddGanttSeries(dw,ls1.ToArray,ls2.ToArray)

End With

Chart.LegendVisible = True \'显示图列