专家坐堂-图表数据显示Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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

Chart= Forms("参数2").Controls("Chart1") \' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar \'

Chart.HeaderText = "压差--实际流量"

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

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

Series.LineColor = Color.blue

Series.LineThickNess = 3

Series.text = "压差"

Series.DataLabelText = "{#YVAL}"

Series.Length = t.Rows.Count \'图系的数据点数等于表的行数

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

Series.X(i) = t.Rows(i)("压差") \'指定水平坐标

Series.Y(i) = t.Rows(i)("实际流量") \'指定垂直坐标

Chart.AxisY.AnnoFormatString="0.00"