主题：图表问题

试试，不行上传例子

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '每年一个图系
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("月 = 8 and 日 = " & Day)'找出对应日的行
    If r IsNot Nothing '如果找到对应日的行
        Series.Y(Day) = r("订单金额") '指定数量作为垂直坐标

    Else

        Series.Y(Day) = 0
    End If
Next