Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Chart= e.Form.Controls("Chart1")
Chart.AxisY.Min = 2 '最少值
Chart.AxisY.Major = 1 '副隔值
chart.AxisY.MinorTick = False
Chart.AxisY.Max =31 '最大值
Chart.SeriesList.Clear()
Dim t As Table=Tables("表A")
chart.AxisY.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)("第一列")
Next
Series.MarkShape = MarkShapeEnum.box '点类型
Series.MarkColor = Color.Green '点颜色
Series.MarkSize=1 '点大小
Chart.SeriesList(0).FitType = FitTypeEnum.Spline '线类型
Chart.SeriesList(0).LineColor= Color.Red '图0线颜色
Chart.AxisY.Min = 1