-- 作者: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 \'启用字符标示
|