主题：图表生成达不到要求

1）我现在有一个“年月分析表”，首先通过高级筛选，从原先的100行筛选成10行（10行是假设）

2）然后点击按钮，代码如下

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

3）最后希望生成的图表是按照高级筛选的结果10行来生成

但是结果是按100行生成，请问如何修改代码