绑定到表
实际应用的时候,图示的数据往往直接来自于数据表,例如对于下面这个表,如何来图示呢。
方法有两种,一种是编码增加图系和数据点,另一种是绑定。
同样在窗口分别中插入一个图表和一个按钮,将按钮的Click事件代码设置为示例代码。
接下来所有生成图表的示例代码,测试方法都一样,就不再重复提示了。
方法一
编码增加图系和数据点。
新建一个窗口,在窗口中分别插入一个图表和一个按钮,将按钮的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
这是生成的图表:
我在编写上面这段代码的时候,栽了一个小跟斗,运行的时候提示"月份"列不属于"统计表1",原来这个表是通过分组统计得到的,标题和列名有的时候并不会一致。
方法二
将图表绑定到数据表。
将按钮的Click事件代码设置为:
Dim
Chart As WinForm.Chart '定义一个图表变量执行效果和方法一完全一样,但是如果你修改表中的数据,生成的图表会立即自动更新,而方法一不会。