主题：[求助]关于图表生成的数据源

以下内容为程序代码:

1 Dim Chart As WinForm.Chart '定义一个图表变量
2 Dim Series As WinForm.ChartSeries '定义一个图系变量
3 Dim t As Table = e.Form.Controls("Tablelablist1").Table '定义一个变量t引用数据表
4 Dim k As Table = e.Form.controls("Tablelablist2").Table
5 Chart= e.Form.Controls("Chartlab") ' 引用窗口中的图表
6 Chart.SeriesList.Clear() '清除图表原来的图系
7 t.sort = "labtime"
8 Chart.AxisX.ClearValueLabel
9 Series = Chart.SeriesList.Add() '增加一个图系
10 Series.Length = t.Rows.Count '设置图系的长度
11 Series.TooltipText = "X = {#XVAL}, Y = {#YVAL}"
12 For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
13 Series.X(i) = i 'cDate(t.Rows(i)("time"))'指定水平坐标
14 Series.Y(i) = val(t.Rows(i)("value")) '指定垂直坐标
15 Series.DataLabelText = "{#YVAL}"
16 Chart.AxisX.SetValueLabel(i, format(cDate(t.Rows(i)("time")), "yyyy-MM-dd ")) '指定字符表示
17 Next
18 For l As Integer = 0 To k.Rows.Count - 1 '指定每个数据点的位置
19 Series.X(l) = l 'cDate(t.Rows(i)("time"))'指定水平坐标
20 Series.Y(l) = val(k.Rows(l)("value")) '指定垂直坐标
21 Series.DataLabelText = "{#YVAL}"
22 Chart.AxisX.SetValueLabel(l, format(cDate(t.Rows(l)("time")), "yyyy-MM-dd ")) '指定字符表示
23 Next
24
25 Chart.AxisX.AnnoRotation = -45
26 Chart.AxisX.AnnoWithLabels = True '启用字符标示