怎样将执行天数添加到状态条上呀？
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("完成日期"))
Next
.AddGanttSeries(dw,ls1.ToArray,ls2.ToArray)
Next
End With
Chart.LegendVisible = True '显示图列
加好友 
发短信
Post By：2022/2/20 1:43:00 [显示全部帖子]
