老师指导下下，下面代码部分数据无法连接图表线条，所形成的表列是按以下布局的
月 日 订单金额
8 5 200
8 10 500
9 1 600
9 3 300
10 2 400
... ...
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
'For Each Day As String In DataTables("订单套系曲线_Table1").GetValues("月")
Series = Chart.SeriesList.Add() '每年一个图系
'Series.Text = Day
Series.Length = 31
Chart.AxisX.Min = 1
Chart.AxisX.Max = 31
For Day As Integer = 1 To 31 '逐月设置坐标
Series.X(Day) = Day
Dim r As DataRow = DataTables("订单套系曲线_Table1").Find("月 = " & Day)'找出对应日的行
If r IsNot Nothing '如果找到对应日的行
Series.Y(Day) = r("订单金额") '指定数量作为垂直坐标
End If
Next
'Next
加好友 
发短信
Post By：2015/11/16 16:05:00 [显示全部帖子]
