Foxtable(狐表)用户栏目专家坐堂 → [求助]怎么让图表中合并相同内容列的统计数值?


  共有2206人关注过本帖树形打印复制链接

主题:[求助]怎么让图表中合并相同内容列的统计数值?

帅哥哟,离线,有人找我吗?
cqusand
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:338 威望:0 精华:0 注册:2016/7/3 21:13:00
[求助]怎么让图表中合并相同内容列的统计数值?  发帖心情 Post By:2016/8/2 21:57:00 [显示全部帖子]

'图表1
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("任务信息") '定义一个变量t引用数据表
Dim sm As Integer = t.Compute("Sum(外协费用)") '计算总数量
Chart= Forms("数据报表").Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为PIE(饼形)
For Each r As Row In t.Rows
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = 1 '一个系列只能包括一个值
    Series.Text = r("外协单位") & "(" & r("外协费用") & ")" '设置图系的标题
    Series.Y(0) = r("外协费用") '指定值

    Series.DataLabelText = Math.Round(r("外协费用")*100/sm,2) & "%" '计算百分比
Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)

 回到顶部
帅哥哟,离线,有人找我吗?
cqusand
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:37 积分:338 威望:0 精华:0 注册:2016/7/3 21:13:00
  发帖心情 Post By:2016/8/2 21:59:00 [显示全部帖子]

我的这个外协单位会重复出现 ,怎么能在生成的图表中自动合并相同外协单位的外协费用呢?


 回到顶部