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

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

预订美好生活，从淘立达王道网购商城开始。淘立达王道网购商城网购一族新型时尚平台，订购生活精彩，快乐不用等，生活享不停。
现在来淘立达王道网购商城

逻辑一塌糊涂，上传例子，说明你要做什么

大神：

无法理解你的意思。

 

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 = e.Form.Controls("ComboBox2").Text

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