Foxtable(狐表)用户栏目专家坐堂 → 请问如何清空图表的数据,


  共有6951人关注过本帖树形打印复制链接

主题:请问如何清空图表的数据,

帅哥哟,离线,有人找我吗?
kevin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
请问如何清空图表的数据,  发帖心情 Post By:2013/3/20 14:47:00 [只看该作者]

窗口中,通过按钮生成了一个图表数据
Dim Chart As WinForm.Chart '定义一个图表变量
Dim
Series As WinForm.ChartSeries '定义一个图系变量
Dim
t As Table = Tables("统计表1") '定义一个变量t引用数据表
Dim
sm As Integer = t.Compute("Sum(数量)") '计算总数量
Chart
= Forms("窗口1").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("产品") & "(" & r("数量") & ")" '设置图系的标题
Series.Y(0) = r("数量") '指定值
Series.DataLabelText = Math.Round(r("数量")*100/sm,2) & "%" '计算百分比

Next

Chart
.LegendVisible = True '显示图列
Chart
.LegendCompass= CompassEnum.East '图列显示在东方(右方)

想通过另一个按钮,使图表的数据为空.请问如何做>?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/20 14:56:00 [只看该作者]

Dim Chart As WinForm.Chart '定义一个图表变量
Dim
 Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls(
"Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() 
'清除图表原来的图系

 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/3/20 14:58:00 [只看该作者]

用户已被锁定

 回到顶部