主题：[求助]条形图

想做一个一条形图表 统计每个人的不同工作类型的工作数量，这个代码该怎么写？

自己写的问题很多 显示的不是想要的

'图表2

Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Dim cm As Integer = DataTables("任务信息").Compute("Count(工作类型)") '计算总数量

For Each lm As String In DataTables("任务信息").GetValues("工作类型")

For Each rm As String In DataTables("任务信息").GetValues("分配给")

Dim l As Double = DataTables("任务信息").compute("Count(工作类型)","工作类型='" & lm & "'")

Chart.SeriesList.Clear() '清除图表原来的图系

        Series = Chart.SeriesList.Add() '增加一个图系

        Series.Length = 1 '一个系列只能包括一个值

        Series.Text = lm '设置图系的标题

        Series.X.DataField = rm 'X轴绑定到产品列

        Series.Y.DataField = l '设置Y轴的绑定列

Next

Next

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

比如甲的“工作设计”和”加工图纸“等数量各有多少？乙的“工作设计”和”加工图纸“等数量各有多少？
此主题相关图片如下：图片1.png

'图表2

Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Dim b As New GroupTableBuilder("统计表1",DataTables("任务信息"))

b.Groups.AddDef("分配给") '添加客户列用于分组

b.Groups.AddDef("工作类型") '添加产品列用于分组

b.Totals.AddDef("工作内容",  AggregateEnum.Count) '添加数量列用于统计

b.Build '生成统计表 

MainTable = Tables("统计表1") '打开生成的统计表

Chart.DataSource = "统计表1" '设置绑定表

For Each gm As String In DataTables("统计表1").GetValues("工作类型")

Dim c As Double = DataTables("统计表1").compute("Count(工作内容)","工作类型='" & gm & "'")

Chart.SeriesList.Clear() '清除图表原来的图系

Series = Chart.SeriesList.Add() '增加第一个图系

Series.Text = gm

Series.X.DataField = "分配给" 'X轴绑定到产品列

Series.Y.DataField = c 'Y轴绑定到数量列

Next

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

 还是没弄明白。。。。