以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 生成图表时,报错(指定的参数已超出有效值的范围)! (http://foxtable.net/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
|