Foxtable(狐表)用户栏目专家坐堂 → [求助]如何通过编写代码实现表中的数据修改时,生成的图表自动更新?


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

主题:[求助]如何通过编写代码实现表中的数据修改时,生成的图表自动更新?

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


加好友 发短信
等级:幼狐 帖子:182 积分:1818 威望:0 精华:0 注册:2014/9/28 12:07:00
[求助]如何通过编写代码实现表中的数据修改时,生成的图表自动更新?  发帖心情 Post By:2019/8/21 8:33:00 [只看该作者]

专家好,在学习图表时遇到点问题, 用编码生成的图表,当修改表中的数据时,图表不会自动更新,用绑定法生成的图表如果你修改表中的数据,生成的图表会立即自动更新。如何实现用编码生成的图表,当修改表中的数据时,图表也能自动更新。

方法一

编码增加图系和数据点。
新建一个窗口,在窗口中分别插入一个图表和一个按钮,将按钮的Click事件代码设置为:

Dim Chart As WinForm.Chart '定义一个图表变量
Dim
Series As WinForm.ChartSeries '定义一个图系变量
Dim
t As Table = Tables("统计表1") '定义一个变量t引用数据表
Chart= e.Form.Controls(
"Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear()
'清除图表原来的图系
Series = Chart.SeriesList.Add()
'增加一个图系
Series.Length = t.Rows.Count
'图系的数据点数等于表的行数
For
i As integer = 0 to t.Rows.Count - 1 '指定每个数据点的位置
    Series.X(i) = t.Rows(i)(
"月份") '指定水平坐标
    Series.Y(i) = t.Rows(i)(
"数量") '指定垂直坐标
Next


方法二

将图表绑定到数据表。
将按钮的Click事件代码设置为:

Dim Chart As WinForm.Chart '定义一个图表变量
Dim
Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource =
"统计表1" '设置绑定表
Chart.SeriesList.Clear()
'清除图表原来的图系
Series = Chart.SeriesList.Add()
'增加一个图系
Series.X.DataField =
"月份" 'X轴绑定到月份列
Series.Y.DataField =
"数量" 'Y轴绑定到数量列



执行效果和方法一完全一样,但是如果你修改表中的数据,方法二生成的图表会立即自动更新,而方法一不会。

如何在方法一中通过编码实现,修改表中数据时,生成的图表会立即自动更新?


 回到顶部
帅哥,在线噢!
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4733 积分:34458 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2019/8/21 8:39:00 [只看该作者]

数据改变后用代码执行一下按钮的代码即可

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110334 积分:561518 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/21 9:01:00 [只看该作者]

表格datacolchanged事件,调用按钮的click事件重新生成图表:http://www.foxtable.com/webhelp/topics/2309.htm

 回到顶部