主题：条形图

目前有26个机构，代码如下，水平坐标没出来完时报错：

错误所在事件：窗口,主窗口,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例

请老师看看代码有什么问题？

Dim cmd5 As New SQLCommand
Dim dt5 As DataTable
cmd5.C
cmd5.CommandText = "S elect  {分支机构管理}.所属机构,中标金额,中标日期 From {分支机构管理} Left JOIN {中标统计} ON {中标统计}.[所属机构] = {分支机构管理}.[所属机构]"
dt5 = cmd5.ExecuteReader()
Dim Chart  As WinForm.Chart  '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim tbl As DataTable =  dt5 '定义一个变量tbl引用数据表
Dim lst As List(Of String) = tbl.GetValues("所属机构") '获得产品名称集合
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形),不加这一句为折线图
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = lst.Count '设置图系的长度
For i As Integer =  0  To lst.Count -  1  '指定每个数据点的位置
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = tbl.Compute("Sum(中标金额)","[所属机构] = '" & lst(i) & "' and 中标日期 >= '" & StartDate & " ' And 中标日期 <= '" & EndDate & "'") '指定垂直坐标
    Chart.AxisX.SetValueLabel(i, lst(i))  '指定字符表示
Next
Chart.AxisX.AnnoRotation = - 45 'X轴文字角度
Chart.AxisX.AnnoWithLabels = True '启用字符标示

改成

Series.Y(i) = val(tbl.Compute("Sum(中标金额)","[所属机构] = '" & lst(i) & "' and 中标日期 >= '" & StartDate & " ' And 中标日期 <= '" & EndDate & "'"))