此主题相关图片如下：12.png
下面红色部分组合框里面选择的年份数据，怎么对应的进行数据筛选到图表中去呢？
其中投入产出表里面有“年份”字段
Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1") '选择年份
Dim g As new GroupTableBuilder("统计表1",DataTables("投入产出"))
g.Groups.AddDef("月份")
g.Totals.AddDef("投入")
g.Totals.AddDef("产出")
g.Totals.AddDef("利润")
g.filter = "门店名称 = '艾依格店'"
Dim dt As DataTable = g.Build(True)
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart3") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
Dim cls() As String = {"投入","产出","利润"}
For Each c As String In cls
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = c '设置图系的标题
Series.Length = 13 '设置图系的长度
For r As Integer = 0 To 12
Series.X(r) = r
Series.Y(r) = 0
Next
For i As Integer = 0 To dt.dataRows.Count - 1
Series.Y(dt.dataRows(i)("月份")) = dt.dataRows(i)(c)
Next
Series.DataLabelText = c & "{#YVAL}"
Series.DataLabelConnected=True
Series.TooltipText = "艾依格店" & c & "{#XVAL}月, {#YVAL}元"
Next
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South
[此贴子已经被作者于2018/1/5 15:11:19编辑过]
加好友 
发短信
Post By：2018/1/5 12:01:00 [只看该作者]
