【图表】怎么生成如图格式的多柱形图呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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("Chart1") ' 引用窗口中的图表

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

For i As Integer = 0 To dt.dataRows.Count - 1

Series.Y(dt.dataRows(i)("月份")) = dt.dataRows(i)(c)

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South

主题：【图表】怎么生成如图格式的多柱形图呢？