Foxtable(狐表)用户栏目专家坐堂 → 分析图


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

主题:分析图

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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
分析图  发帖心情 Post By:2013/3/8 18:01:00 [只看该作者]

Dim g As New CrossTableBuilder("统计表1", DataTables("课程信息"))
g.HGroups.AddDef("培训时间", DateGroupEnum.Year, "年")
g.VGroups.AddDef("课程")
'g.Totals.AddDef("实际人数", "实际人数")
g.Totals.AddDef("人天统计", "人天统计")
g.Build()

'-----------------------------------生成图表----------------------
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.DataSource = "统计表1" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
chart.AxisX.Major = 1
Chart.AxisY.Major = 100
For Each c As Col In t.Cols
    If c.Name <> "年" Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Caption    'Name '设置图系的标题
        Series.X.DataField = "年" 'X轴绑定到产品列
        Series.Y.DataField = c.Name '设置Y轴的绑定列
Series.DataLabelText = "{#YVAL}"
    End If
Next
'Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
这是区分课程的代码   但是怎么加入折线的数据呢


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130308175746.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130308175852.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/8 18:18:00 [只看该作者]

没有看懂你的问题

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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
  发帖心情 Post By:2013/3/9 9:37:00 [只看该作者]

上图是多个课程的实际人数 下图柱状型是单个课程的实际人数,折现是天数*实际人数    我怎么才能在多个课程里加入多个折线图表示每个课程的天数*实际人数呢

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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
  发帖心情 Post By:2013/3/14 9:21:00 [只看该作者]

貌似你每一次都是看不懂问题


 回到顶部