以文本方式查看主题

-  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