主题：怎么才能将数据都显示在一个柱形体上面呢

高手好 我现在做的图表最高分最低分都不在一块 看起来特别的麻烦 现在其实就是四组数据  怎么才能让一组的数据最低分、最高分、平均分都显示在一个柱形上呢 就像说明书里面的那样重叠在一起呢

这是我的程序 求高手指点

'------------------------------------生成统计表------------------------
Dim g As New GroupTableBuilder("统计表2", DataTables("学员基础信息"))
g.Groups.AddDef("培训_产品组1", "产品组")
g.Totals.AddDef("ITC_ITC1_Pretest", AggregateEnum.Max, "PretestMAX")
g.Totals.AddDef("ITC_ITC1_Pretest", AggregateEnum.Average, "PreAVE")
g.Totals.AddDef("ITC_ITC1_Pretest", AggregateEnum.Min, "PretestMIN")
g.Totals.AddDef("ITC_ITC1_PostTest", AggregateEnum.Max, "PostMAX")
g.Totals.AddDef("ITC_ITC1_PostTest", AggregateEnum.Average, "PostAVE")
g.Totals.AddDef("ITC_ITC1_PostTest", AggregateEnum.Min, "PostMIN")
g.Totals.AddDef("ITC_ITC1_RolePlay", AggregateEnum.Max, "RolePlayMAX")
g.Totals.AddDef("ITC_ITC1_RolePlay", AggregateEnum.Average, "RolePlayAVE")
g.Totals.AddDef("ITC_ITC1_RolePlay", AggregateEnum.Min, "RolePlayMIN")
g.Totals.AddDef("ITC_ITC1_PPT", AggregateEnum.Max, "PPTMAX")
g.Totals.AddDef("ITC_ITC1_PPT", AggregateEnum.Average, "PPTAVE")
g.Totals.AddDef("ITC_ITC1_PPT", AggregateEnum.Min, "PPTMIN")

g.filter = Filter   '----筛选----
g.Build()
'-------------------------------------生成图表---------------------------
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表2") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.DataSource = "统计表2" '设置绑定表
Chart.AxisY.Major = 10
Chart.AxisY.Min = 0 '指定Y轴的最小值

Chart.SeriesList.Clear() '清除图表原来的图系
For Each c As Col In t.Cols
    If c.Name <> "产品组" Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.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 '图列显示在南方(底端)

 

 

此主题相关图片如下：预期.png


此主题相关图片如下：现在.png