老师，采用案例的甘特图来编制工程进度，我想显示工期天数，老师怎么写代码，麻烦帮忙弄一下。
Dim Chart As WinForm.Chart
Chart= Forms("窗口1").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "yy-MM" '设置Y轴的标示格式
Chart.AxisY.MinDate = #01/01/2021# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #03/01/2022# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
With Chart.SeriesList
.AddGanttSeries("施工准备", #2/10/2021#, #2/12/2021#)
.AddGanttSeries("基础工程", #2/13/2021#, #2/23/2021#)
.AddGanttSeries("主体工程", #2/23/2021#, #9/24/2021#)
.AddGanttSeries("屋面装修", #9/25/2021#, #10/25/2021#)
.AddGanttSeries("门窗制作及安装工程", #10/26/2021#, #12/20/2021#)
.AddGanttSeries("绿化工程",#10/26/2021#, #12/30/2021#)
.AddGanttSeries("竣工验收", #12/21/2021#, #01/20/2022#)
.AddGanttLabels()
End With
加好友 
发短信
Post By：2021/1/25 11:16:00 [只看该作者]
