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


  共有1849人关注过本帖平板打印复制链接

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

美女呀,离线,留言给我吧!
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

 

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


 回到顶部