估计要改成这样
Dim Chart As WinForm.Chart
Chart= e.Form.Controls("Chart1")
Chart.SeriesList.Clear()
Chart.ChartType = ChartTypeEnum.Gantt
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "yyyy-MM-dd" '设置Y轴的标示格式
For Each dr As DataRow In DataTables("订单明细表").DataRows
Chart.AxisY.MinDate = CDate(dr("下单日期"))
Chart.AxisY.MaxDate = CDate(dr("交货日期"))
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
With Chart.SeriesList
.AddGanttSeries(dr("加工工序"), CDate(dr("开始时间")), Date.Today)
.AddGanttLabels("yyyy年M月d日")
End WithNext
--------------------------------------------------
不是这个的问题。字符串也行,我测试可以显示的,我替换了一下。
[此贴子已经被作者于2012-11-24 16:30:24编辑过]