老师，图表能嵌套吗？比如说我要制一个饼图，首先将数据分成AB两大类，然后再在A下分1、2，在B下再分甲、乙、丙、丁、1。下面代码是我修改过后代码，除了百分显示外，还增加了类别名称。就是希望AB有明显的分界，代码要怎么修改呢？？Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("zwtzhzb") '定义一个变量t引用数据表
Dim sm As Integer = t.Compute("Sum(ljxz)") '计算总数量
Chart= Forms("主窗口").Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)
For Each r As Row In t.Rows
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 1 '一个系列只能包括一个值
Series.Text = r("zwlx") & "(" & r("ljxz") & ")" '设置图系的标题
Series.Y(0) = r("ljxz") '指定值
Series.DataLabelText = Math.Round(r("ljxz")*100/sm,2) & "%" & r("zwlx") '计算百分比
Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)
加好友 
发短信
Post By：2020/4/7 12:46:00 [显示全部帖子]
