以文本方式查看主题

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

--  作者:cd_tdh
--  发布时间:2020/1/2 12:26:00
--  图标统计

老师,我生成的临时表如下:目前为0是,也有数量是:1

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20200102122113.png
图片点击可在新窗口打开查看

生成图表,需要排除项目名称为空的,当项目名称为空时,显示数量为:0,但所有分支机构都需要显示,后面代码怎么写?

 

Dim Chart3  As WinForm.Chart  \'定义一个图表变量
Dim Series3 As WinForm.ChartSeries \'定义一个图系变量
Dim tb3 As DataTable =  dt8 \'定义一个变量tbl引用数据表
Dim lst3 As List(Of String) = tb3.GetValues("所属机构") \'获得产品名称集合
Chart3 = e.Form.Controls("Chart3") \' 引用窗口中的图表
Chart3.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形),不加这一句为折线图
Chart3.SeriesList.Clear() \'清除图表原来的图系
Chart3.AxisY.Text = "参与投标数量(个)"
Series3 = Chart3.SeriesList.Add() \'增加一个图系
Series3.Length = lst3.Count \'设置图系的长度
For i As Integer =  0  To lst3.Count -  1  \'指定每个数据点的位置
    Series3.X(i) = i \'指定水平坐标
    Series3.Y(i) = tb3.Compute("Count(所属机构)","[所属机构] = \'" & lst3(i) & "\' ") \'指定垂直坐标
    Chart3.AxisX.SetValueLabel(i, lst3(i))  \'指定字符表示
    Series3.DataLabelText = "{#YVAL}"  \'显示Y轴的值
    Series3.DataLabelCompass = LabelCompassEnum.North  \'标识的位置
Next

 

[此贴子已经被作者于2020/1/2 12:27:13编辑过]

--  作者:cd_tdh
--  发布时间:2020/1/2 12:32:00
--  

明白了,增加一个统计条件,项目名称不为空。