以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  甘特图代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160222)

--  作者：sjf0823 --  发布时间：2021/1/25 11:16:00 --  甘特图代码 老师，采用案例的甘特图来编制工程进度，我想显示工期天数，老师怎么写代码，麻烦帮忙弄一下。 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

--  作者：有点蓝 --  发布时间：2021/1/25 11:24:00 --   不支持，显示不了