图表显示项目执行天数 - 专家坐堂 - 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 '显示图列

主题：图表显示项目执行天数