老师好，提示错误：未将对象引用设置到对象的实例。
我的代码如下，您看错在哪里？
Dim Chart As WinForm.Chart
Chart= Forms("ProjectPlan").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
Chart.AxisY.MinDate = #01/01/2017# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #04/30/2017# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
With CurrentTable
Dim dr As DataRow
With Chart.SeriesList
.AddGanttSeries(dr("Task"),dr("StartTime"),dr("EndTime"))
End With
End With
加好友 
发短信
Post By：2017/2/24 6:44:00 [只看该作者]
