标题：如何根据各列数据生成饼形图？
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 '图列显示在东方(右方)
此主题相关图片如下：2011-7-16 10-41-34.png
Dim g As New GroupTableBuilder("分组统计", DataTables("总览"))
g.Groups.AddDef("乡名")
g.Totals.AddDef("退耕地")
g.Totals.AddDef("平坡退耕","平坡")
g.Totals.AddDef("退耕斜坡","缓坡")
g.Totals.AddDef("斜坡退耕","斜坡")
g.Totals.AddDef("陡坡退耕","陡坡")
g.Build()
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("分组统计") '定义一个变量t引用数据表
Chart= Forms("构成分析").Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
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("分组统计").Current(nm)
Series.DataLabelText = "{#YVAL}" & "亩"
Series.DataLabelForeColor = Color.Red
Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)
希望显示：253.6亩占32.51%
根据各列数据生成饼形图（3楼）不知怎么变通成下面效果
Series.DataLabelText =" {#YVAL}" & "亩" & "占" & Math.Round(r("设计面积")*100/sm,2) & "%"
此主题相关图片如下：2011-7-17 16-58-10.png
谢谢!成功了
.........
Series.Text = nm
Dim r As Row = Tables("分组统计").Current
Dim sm As Double=r("平坡")+r("缓坡")+r("斜坡")+r("陡坡")
Series.Y(0) = r(nm)
Series.DataLabelText =" {#YVAL}" & "亩 占" & Math.Round(r(nm)*100/sm,2) & "%"
Series.DataLabelForeColor = Color.Red 'White '白字
Chart.HeaderText="" & cmb.Value & "退耕地坡度级分布"
...........