以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  饼图 不显示合计的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115927)
--  作者：douglas738888
--  发布时间：2018/3/16 17:17:00
--  饼图 不显示合计的问题

请教老师 统计表中有合计行，下面代码生成的饼图，不要显示合计行的图形比例，应该怎样改

 

Dim Chart1 As New ChartBuilder \'定义一个图表变量
Dim Series1 As WinForm.ChartSeries \'定义一个图系变量
Dim t1 As Table = Tables("员工信息_Table1") \'定义一个变量t引用数据表
Dim sm1 As Integer = t1.Compute("Sum(投标设计任务量)") \'计算总数量
Dim dr22 As Row = t1.Rows(t1.Rows.Count(True) - 1,True)


Chart1.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart1.ChartType = ChartTypeEnum.Pie \'图表1类型改为Bar(条形)
Chart1.SeriesList.Clear() \'清除图表原来的图系
For Each r1 As Row In t1.Rows
    Series1 = Chart1.SeriesList.Add() \'增加一个图系
    Series1.Length = 1 \'一个系列只能包括一个值
    Series1.Text = r1("电压等级") & "(" & r1("投标设计任务量") & ")" \'设置图系的标题
    Series1.Y(0) = r1("投标设计任务量") \'指定值
    Series1.DataLabelText = Math.Round(r1("投标设计任务量")*100/sm1,2) & "%" \'计算百分比
Next
--  作者：有点甜
--  发布时间：2018/3/16 17:45:00
--  

这个意思？

 

For Each r1 As Row In t1.Rows

    If r1("某列") <> "合计" Then
    Series1 = Chart1.SeriesList.Add() \'增加一个图系
    Series1.Length = 1 \'一个系列只能包括一个值
    Series1.Text = r1("电压等级") & "(" & r1("投标设计任务量") & ")" \'设置图系的标题
    Series1.Y(0) = r1("投标设计任务量") \'指定值
    Series1.DataLabelText = Math.Round(r1("投标设计任务量")*100/sm1,2) & "%" \'计算百分比

    End If
Next