主题：[求助]关于生成Histogram图表（已解决）

比如

Dim Chart  As WinForm.Chart  '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = Forms("扎包曲线").Controls("Chart1") ' 引用窗口中的图表
Dim t As Table = Tables("汇总表") '定义一个变量t引用数据表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.ChartType = ChartTypeEnum.Histogram ' 设置图表类型
Series = Chart.SeriesList.Add() '增加一个图系
Series.Histogram.IntervalStart = 0 '指定起始值
Series.Histogram.IntervalWidth = 10 '指定分区宽度
Series.Histogram.IntervalNumber= 10 '指定分区个数
Series.Length = t.Rows.Count '设置图系的长度
For i As Integer =  0  To t.Count - 1  '指定每个数据点的位置
    Series.Y(i) = t.Rows(i)("工效") '指定垂直坐标
Next

 请上传实例。

控制好红色地方

Dim Chart  As WinForm.Chart  '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = Forms("扎包曲线").Controls("Chart1") ' 引用窗口中的图表
Dim t As Table = Tables("汇总表") '定义一个变量t引用数据表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.ChartType = ChartTypeEnum.Histogram ' 设置图表类型
Series = Chart.SeriesList.Add() '增加一个图系
Series.Histogram.IntervalStart = 0 '指定起始值
Series.Histogram.IntervalWidth = 10 '指定分区宽度
Series.Histogram.IntervalNumber= 10 '指定分区个数
Series.Length = t.Rows.Count '设置图系的长度
For i As Integer =  0  To t.Count - 1  '指定每个数据点的位置
    Series.Y(i) = t.Rows(i)("工效") * 100 '指定垂直坐标
Next