以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  分析图  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29545)

--  作者:keeryq
--  发布时间: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
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2013/3/8 18:18:00
--  
没有看懂你的问题
--  作者:keeryq
--  发布时间:2013/3/9 9:37:00
--  
上图是多个课程的实际人数 下图柱状型是单个课程的实际人数,折现是天数*实际人数    我怎么才能在多个课程里加入多个折线图表示每个课程的天数*实际人数呢
--  作者:keeryq
--  发布时间:2013/3/14 9:21:00
--  

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