以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 图表错误提示:索引超出范围 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97669) |
-- 作者:有点色 -- 发布时间:2017/3/16 16:12:00 -- For Each c As Col In t.Cols
If c.Name <> "开标日期" Then
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Text = c.Name \'设置图系的标题
Series.Length = t.Rows.Count \'设置图系的长度
For r As Integer = 0 To t.Rows.Count - 1
Series.X(r) = r
Series.Y(r) = t.Rows(r)(c.Name)
Next
Series.FitType = FitTypeEnum.Spline
End If
Next
|