主题：图表

看不懂你的逻辑，请上传具体例子说明问题。

Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Dim tjcz As WinForm.DropDownBox = e.Form.Controls("机器号1")
Dim tbl As DataTable = DataTables("停机处置")
Chart = e.Form.Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear() '
Series = Chart.SeriesList.Add()
Series.Length = 12
For i As Integer = 0 To 11
    Dim d As Date = new Date(Date.Today.Year, i+1, 1)
    Series.X(i) = i
    Series.Y(i) = val(tbl.Compute("Avg(处置停机总耗时M)","机器号= '" & tjcz.text & "' and 申请时间 >= #" & d & "# and 申请时间 < #" & d.AddMonths(1) & "#"))
    Chart.AxisX.SetValueLabel(i, Format(d, "yyyy-MM"))
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示