主题：数据点出错

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t1 As Table = Tables("销售预算进度分析") '定义一个变量t引用数据表
Chart = e.Form.Controls("销售预算1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
For Each c As Col In t.Cols
    If c.Name <> "所属单位"  And c.Name <> "年" And c.Name <> "月"  And c.Name <> "预算完成比率"   Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Name '设置图系的标题
        Series.Length = t1.Rows.Count  '设置图系的长度
        For r1 As Integer = 0 To t1.Rows.Count -1
            Series.X(r1) = r1
            Series.Y(r1) = t1.Rows(r1)(c.Name)
        Next
    End If
Next
For r1 As Integer = 0 To t1.Rows.Count -1
    Chart.AxisX.SetValueLabel(r1, t1.Rows(r1)("月")) '指定字符表示
Next