Dim Chart As WinForm.Chart \'定义一个图表变量

            Dim Series As WinForm.ChartSeries \'定义一个图系变量

            Dim t As Table = Tables("环境数据") \'定义一个变量t引用数据表

            Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表

            Chart.SeriesList.Clear() \'清除图表原来的图系

            Chart.Axisx.ClearValueLabel

                Series = Chart.SeriesList.Add() \'增加一个图系

                Series.Length = t.Rows.Count \'设置图系的长度

                    For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置

                        Series.X(i) = i \'指定水平坐标

                        Series.Y(i) = t.Rows(i)("土壤温度")

                        Chart.AxisX.SetValueLabel(i, Format(t.Rows(i)("时间"),"HH:mm")) \'指定字符表示

                    Next

                    Chart.AxisX.AnnoWithLabels = True

                    Chart.AxisY.Major =10

                    Chart.AxisY.Min = -30

                    Chart.AxisY.Max =70

                    Chart.AxisX.AnnoWithLabels = True

                    Chart.AxisY.Major = 10

                    Chart.AxisY.Min = 0

                    Chart.AxisY.Max =100

                    chart.FooterText="土壤温度"