主题：如何根据各列数据生成饼形图？

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表
Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)

 
Dim nms() as string = {"饲料费用","物耗费用","种苗费用","其它支出","工资费用"}
for each nm  as string in nms
   Series = Chart.SeriesList.Add() '增加一个图系
   Series.Length = 1 '一个系列只能包括一个值
   Series.Text = nm
   Series.Y(0) = Tables("xxx").Current(nm)
next
 
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)

这里不是有现成的例子吗：

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=11274