Foxtable(狐表)用户栏目专家坐堂 → 如何给图系后面加人数


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

主题:如何给图系后面加人数

美女呀,离线,留言给我吧!
susu312
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
如何给图系后面加人数  发帖心情 Post By:2018/9/14 11:34:00 [只看该作者]

''图表3
'生成离退休人数临时表
Dim b2 As New CrossTableBuilder("统计表3",DataTables("person"))
b2.HGroups.AddDef("organName","单位") '添加客户列用于水平分组
b2.VGroups.AddDef("leaOrRetire") '添加产品列用于垂直分组
b2.Totals.AddDef("leaOrRetire", AggregateEnum.Count)
b2.Build() '生成统计表
 
Dim Chart2 As WinForm.Chart '定义一个图表变量
Dim Series2 As WinForm.ChartSeries '定义一个图系变量
Dim t2 As Table = Tables("统计表3") '定义一个变量t引用数据表
Chart2 = e.Form.Controls("Chart3") ' 引用窗口中的图表
Chart2.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart2.DataSource = "统计表3" '设置绑定表
Chart2.SeriesList.Clear() '清除图表原来的图系
For Each c As Col In t2.Cols
    'Dim rs1 As Integer = val(t2.Rows(c)("人数"))
    If c.Name <> "单位" Then
        Series2 = Chart2.SeriesList.Add() '增加一个图系
        Series2.Text =  c.Caption'设置图系的标题 
        Series2.X.DataField = "单位" 'X轴绑定到产品列
        Series2.Y.DataField = c.Name '设置Y轴的绑定列
    End If
Next

 

红色部分如何给它后面加上人数?


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/14 11:50:00 [只看该作者]

 

Series2.Text =  c.Caption & "(" & 人数变量值 & ")"


 回到顶部
美女呀,离线,留言给我吧!
susu312
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
  发帖心情 Post By:2018/9/14 14:34:00 [只看该作者]

以下是引用有点甜在2018/9/14 11:50:00的发言:

 

Series2.Text =  c.Caption & "(" & 人数变量值 & ")"

老师,我就是不会如何获取那个人数变量值?


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/14 15:10:00 [只看该作者]

Series2.Text =  c.Caption & "(" & t2.compute("sum(" & c.name & ")") & ")"

[此贴子已经被作者于2018/9/14 15:10:43编辑过]

 回到顶部