以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  条形图  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129092)

--  作者:cd_tdh
--  发布时间:2018/12/21 11:55:00
--  条形图

目前有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 \'启用字符标示


--  作者:有点甜
--  发布时间:2018/12/21 11:57:00
--  

改成

 

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