你想做什么?
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.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 dr As DataRow In DataTables("进度计划").datarows
.AddGanttSeries(dr("单位工程"),dr("计划开始"),dr("计划完成"))
Next
End With