主题：表达式“System.Data.NameNode”不是聚合

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

    .AddGanttSeries (DataTables("进度计划").Compute("单位工程"),DataTables("进度计划").Compute("计划开始") , DataTables("进度计划").Compute("计划完成")) 

   

End With