主题：窗口中的图表显示问题

我想要在一个窗口中显示多个图表，就是某一条项目从多个角度来生成图表。如下图中

在ComboBox控件中选择某条线路后，点击单线分析按钮在第一个图表中生成该线路的按月份统计的图表；在第二个图表中生成按故障原因一级统计的图表。。。以此类推

请大神们指点指点

目前的程序代码为：

Dim b As New GroupTableBuilder("按月份统计",DataTables("故障明细"))

b.Groups.AddDef("月份") '根据所属10千伏线路分组

b.Totals.AddDef("计数") '对数量进行统计

b.Build '生成统计表

MainTable = Tables("按月份统计") '打开生成的统计表

Dim Filter As String

With e.Form.Controls("ComboBox线路名称")

    If .Value IsNot Nothing Then

        Filter =  "月份 in ('" & .Value.replace(",", "','") & "')"

    End If

End With

If Filter > "" Then

    Tables("按月份统计").Filter = Filter

End If

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

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

Dim t As Table = Tables("按月份统计") '定义一个变量t引用数据表

Chart= Forms("单线分析").Controls("Chart1") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)

Chart.DataSource = "按月份统计" '设置绑定表
此主题相关图片如下：图片1.png

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

Chart.DataFilter =  Filter

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

Series.X.DataField = "月份" 'X轴绑定到产品列

Series.Y.DataField = "计数" 'Y轴绑定到数量列

Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度