主题：求大神帮我看看程序

If e.DataCol.Name = ""第一列"" Then   '判断第一个组合框内的内容是否为第一列

    If e.Col.Name = "俯卧撑"  Then    '判断第二个组合框内的内容是否为表一中的”俯卧撑”列

        Dim Chart As WinForm.Chart '定义一个图表变量  

        Dim Series As WinForm.ChartSeries '定义一个图系变量

        Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表

        Chart.DataSource = "表A" '设置绑定表

        Chart.SeriesList.Clear() '清除图表原来的图系

        Series = Chart.SeriesList.Add() '增加一个图系

        Series.X.DataField = "第一列" 'X轴绑定到月份列

        Series.Y.DataField = "俯卧撑" 'Y轴绑定到数量列

        If e.aCol.Name = "仰卧起坐"  Then

            Dim Chart As WinForm.Chart '定义一个图表变量

            Dim Series As WinForm.ChartSeries '定义一个图系变量

            Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表

            Chart.DataSource = "表A" '设置绑

            Chart.SeriesList.Clear() '清除图表原来的图系

            Series = Chart.SeriesList.Add() '增加一个图系

            Series.X.DataField = "第一列" 'X轴绑定到月份列

            Series.Y.DataField = "仰卧起坐" 'Y轴绑定到数量列

            e.Cancel = True

        End If

    End If

End If

End If

大神：

用大神这个，能够得出图表