主题：让图表显示统计表里没有的数据

谁能帮我看看分析窗体呢 怎么才能在不大动的基础上实现显示的数据仅仅是（人天统计/实际人数）这一项呢 现在显示的是人天统计、实际人数两个数据 我怎么加都不对  困扰我好些天了    麻烦了  谢谢呢

怎么才能让图表里显示按年份统计的数据都是从上一年的4月1号到今年的3月31号呢

g.Filter = "[培训时间] >= #4/1/2012#  and [培训时间] <= #3/31/2013#" 这句加上后仅仅是这一年的 怎么才能点了按年统计的按钮再点区分课程 所有的信息就都出来了呢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:练习.table

救救我呗  实在想不出来了

嗯嗯 该说谢谢的 但是改变了布局 我加了这句话DataTables("统计表1").DataCols.Add(" 新列",Gettype(Double),"人天统计/实际人数")

让Y轴绑定到新列  但是没成功 

此主题相关图片如下：捕获.png

 要是统计表示这样带分组的呢 这个要是加上去就报错了

 

 '---------------------------------生成统计表------------------
    Dim g As New CrossTableBuilder("统计表1", DataTables("课程信息"))
    g.HGroups.AddDef("培训时间", DateGroupEnum.Year, "年")
    g.VGroups.AddDef("课程")
    g.Totals.AddDef("实际人数", "实际人数")
    g.Totals.AddDef("人天统计", "人天统计")
    g.Build()
   ' DataTables("统计表1").DataCols.Add("新列",Gettype(Double),"人天统计/实际人数")
    '-----------------------------------生成图表----------------------
    Dim Chart As WinForm.Chart '定义一个图表变量
    Dim Series As WinForm.ChartSeries '定义一个图系变量
    Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表
    Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
    Chart.SeriesList.Clear()
    Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
   Chart.DataSource = "统计表1" '设置绑定表
    Chart.SeriesList.Clear() '清除图表原来的图系
    chart.AxisX.Major = 1
    Chart.AxisY.Major = 100
    Chart.AxisY.Min = 0 '指定Y轴的最小值

       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 '图列显示在南方(底端)
   
    ChaRT.HeaderText = "课程分析-人天统计"
    Chart.AxisX.Text = "年份"

 要是统计表示这样带分组的呢 这个' DataTables("统计表1").DataCols.Add("新列",Gettype(Double),"人天统计/实际人数")
要是加上去就报错了

 

 '---------------------------------生成统计表------------------
    Dim g As New CrossTableBuilder("统计表1", DataTables("课程信息"))
    g.HGroups.AddDef("培训时间", DateGroupEnum.Year, "年")
    g.VGroups.AddDef("课程")
    g.Totals.AddDef("实际人数", "实际人数")
    g.Totals.AddDef("人天统计", "人天统计")
    g.Build()
   ' DataTables("统计表1").DataCols.Add("新列",Gettype(Double),"人天统计/实际人数")
    '-----------------------------------生成图表----------------------
    Dim Chart As WinForm.Chart '定义一个图表变量
    Dim Series As WinForm.ChartSeries '定义一个图系变量
    Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表
    Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
    Chart.SeriesList.Clear()
    Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
   Chart.DataSource = "统计表1" '设置绑定表
    Chart.SeriesList.Clear() '清除图表原来的图系
    chart.AxisX.Major = 1
    Chart.AxisY.Major = 100
    Chart.AxisY.Min = 0 '指定Y轴的最小值

       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 '图列显示在南方(底端)
   
    ChaRT.HeaderText = "课程分析-人天统计"
    Chart.AxisX.Text = "年份"

大侠 这是怎么回事呢？？？
此主题相关图片如下：未命名.jpg

 大侠神人呀，小弟佩服！！！真是谢谢呀

 

但是还有个疑问能不能把实际人数和人天统计都去掉呢 只显示他们的商呢 这样怎么改呢

此主题相关图片如下：捕获.png

 嘿嘿 成了扶不起的阿斗了

此主题相关图片如下：按月统计出错了.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:销售培训.table

忘了一点了 怎么才能让图表里显示按年份统计的数据都是从上一年的4月1号到今年的3月31号呢

g.Filter = "[培训时间] >= #4/1/2012#  and [培训时间] <= #3/31/2013#" 这句加上后仅仅是这一年的 怎么才能点了按年统计的按钮再点区分课程 所有的信息就都出来了呢

大侠 在吗 大侠 看看我说的问题呗 对VB实在是不懂呢  就看看呗！！！ 大侠救救我吧

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=192387&ID=30180&skin=1

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=192601&ID=30180&skin=1