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


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

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

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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/8/3 8:38:00 [显示全部帖子]

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim sm As Integer = DataTables("任务信息").Compute("Sum(外协费用)") '计算总数量
Chart= Forms("数据报表").Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为PIE(饼形)
For Each nm As String In DataTables("任务信息").GetValues("外协单位")
    Dim v As Double = DataTables("任务信息").compute("Sum(外协费用)","外协单位='" & nm & "'")
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = 1 '一个系列只能包括一个值
    Series.Text = nm & "(" & v & ")" '设置图系的标题
    Series.Y(0) = v '指定值

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

 回到顶部