以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于生成Histogram图表（已解决）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83520)
--  作者：yyzlxc
--  发布时间：2016/4/11 16:14:00
--  [求助]关于生成Histogram图表（已解决）
下面这段代码可以生成XYPlot(线形)图表类型，如果要生成Histogram（分布范围）图表类型，代码如何修改，请各位老师指教，谢谢！！

Dim Chart  As WinForm.Chart  \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = Forms("扎包曲线").Controls("Chart1") \' 引用窗口中的图表
Dim t As Table = Tables("汇总表") \'定义一个变量t引用数据表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = t.Rows.Count \'设置图系的长度
For i As Integer =  0  To t.Count - 1  \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = t.Rows(i)("工效") \'指定垂直坐标
    Chart.AxisX.SetValueLabel(i, t.Rows(i)("序号")) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示
[此贴子已经被作者于2016/4/11 17:18:55编辑过]
--  作者：大红袍
--  发布时间：2016/4/11 16:19:00
--  

比如

 

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
--  作者：yyzlxc
--  发布时间：2016/4/11 16:32:00
--  
生成的图表如下，如何修改代码，请大红袍老师赐教，谢谢！！


图片点击可在新窗口打开查看此主题相关图片如下：捕获3.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2016/4/11 16:35:00
--  

 请上传实例。
--  作者：大红袍
--  发布时间：2016/4/11 16:36:00
--  

控制好红色地方

 

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

[此贴子已经被作者于2016/4/11 16:36:32编辑过]
--  作者：yyzlxc
--  发布时间：2016/4/11 16:55:00
--  
谢谢大红袍老师的赐教，我知道如何调节了，谢谢！！




[此贴子已经被作者于2016/4/11 17:00:18编辑过]