主题：[求助]图表问题

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim tb As Table = Tables("区域汇总")
Dim cs() As String = {"一月","二月","三月","四月","五月","六月","七月","八月","九月"}
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
For Each r As Row in tb.Rows
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = cs.Length
    Series.Text = r("区域")   
    For i As integer = 0 to cs.Length - 1
         Series.X(i) = i '指定水平坐标
        Series.Y(i) = r(cs(i))
    Next
Next
For i As integer = 0 to cs.Length - 1
     Chart.AxisX.SetValueLabel(i, cs(i)) '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.East '图列显示在南方(底端)

既然是编码加进去的数据，你跳过3月不就行了吗？