老师好,我研究了帮助里的图表生成代码,其横坐标数值是红色部分,和我要求的不同。
For r As Integer = 0 To t.Rows.Count - 1
Series.X(r) = r
Series.Y(r) =
t.Rows(r)(c.Name)
我的要求是将第二列给定为横坐标,第三列,第四列,第五列,第六列为纵坐标,按照帮助文件无法生成。下面的代码红色部分不通过,请问该如何写?
谢谢。
For Each na As String In
DataTables("statis").GetValues("第一列")
Dim dt As DataTable
Dim
cmd As new SQLCommand
cmd.CommandText="se lect 第二列,第三列,第四列,第五列,第六列 from{statis} where 第一列='" &
na & "'"
dt=cmd.ExecuteReader
For Each c As DataCol In dt.DataCols
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) =val(t.cols(r+1))
Series.Y(r) = val(t.Rows(r)(c.Name))
Next
End If
Next