以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  生成图表时,报错(指定的参数已超出有效值的范围)!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170967)

--  作者:水墨青花
--  发布时间:2021/8/12 16:56:00
--  生成图表时,报错(指定的参数已超出有效值的范围)!
老师,您好:

根据如下 统计表,生成图表时,在红色标记的For Loop内,当 c 增到 8 时,就会报错:指定的参数已超出有效值的范围!

你能帮着看下是什么问题吗?十分感谢!

图片点击可在新窗口打开查看

‘#生成图表Code:

Dim Chart  As WinForm.Chart  
Dim Series As WinForm.ChartSeries 
Dim t As Table =  Tables("数据汇总_Table1") \'定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") 
Chart.VisualEffect = False
Chart.SeriesList.Clear() 
Chart.AxisY.Min = 0
Chart.AxisY.Max = 5

For r As Integer = 0 To t.Rows.count - 1
    Series = Chart.SeriesList.Add() 
    Series.Text = t.rows(r)("样品批号")  
    Series.Length = t.Cols.Count - 7  \'设置图系的长度
    For c As Integer = 7 To t.Cols.count - 1
        Series.X(c - 1) = c - 1
        Series.Y(c - 1) = t.Rows(r)(c)
    Next
Next
Chart.AxisX.AnnoWithLabels = True  \'启用字符标示
Chart.LegendVisible = True  \'显示图列
Chart.LegendCompass= CompassEnum.South   \'图列显示在南方(底端)

--  作者:有点蓝
--  发布时间:2021/8/12 17:07:00
--  
    For c As Integer = 7 To t.Cols.count - 1
        Series.X(c - 7) = c - 7
        Series.Y(c - 7) = t.Rows(r)(c)
    Next