主题：这个图表怎么修改?

把这个表传上来看看。

呵呵，新建一个项目，加载这个表，然后重定向为内部表，输入少量数据后删除数据源，发上来即可。

 不过下面的代码的肯定是有问题的：

For Each dr As DataRow In DataTables("订单明细表").DataRows
   Chart.AxisY.MinDate = dr("下单日期")
    Chart.AxisY.MaxDate = dr("交货日期")

Next

每个坐标轴的最大值和最小值，都只有一个，你这样循环设置，是没有意义的，最后Y轴的最大值和最小值，就是最后一行的下单日期和交货日期。

你要在Y轴显示日期，那么原来的代码中，加粗的这样不要：

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 = dr("下单日期")
Chart.AxisY.MaxDate = dr("交货日期")
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
With Chart.SeriesList
.AddGanttSeries(dr("加工工序"),dr("开始时间"),Date.Today)
.AddGanttLabels("yyyy年M月d日")
End With
Next