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

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.ChartType = ChartTypeEnum.Bar '设置图表类型
chart.AxisX.ClearValueLabel
Chart.BarClusterWidth = 80
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 2
Series.X(0) = 0 '指定水平坐标
Series.Y(0) = 100 '指定垂直坐标
Chart.AxisX.SetValueLabel(0, "应完成") '指定字符表示
Series.X(1) = 1 '指定水平坐标
Series.Y(1) = 30 '指定垂直坐标
Chart.AxisX.SetValueLabel(1, "已完成") '指定字符表示
Chart.AxisX.AnnoWithLabels = True '启用字符标示

主题：生成图表