柱状结构图 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

甜老师，我这样做了这个效果：

一个图形类型为bar，另一个为xyplot

此主题相关图片如下：微信截图_20180522144017.png

两个都是bar，就重叠在一起了，有没有办法两个图系不重叠在一起，而是类似像图示多列那样一个店分两个柱子吗？

此主题相关图片如下：微信截图_20180522144052.png

Forms("人脸识别多店比较").open()

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

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

Chart = forms("人脸识别多店比较").Controls("Chart1") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.bar 'xyplot

Chart.ChartType2 = ChartTypeEnum.Bar '

Chart.DataSource = "瑞为人脸识别年龄段统计_table1" '设置绑定表

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

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

Series.Text = "成交率_男"

Series.X.DataField = "门店名称" 'X轴绑定到产品列

Series.Y.DataField = "成交率_男_合计" 'Y轴绑定到数量列

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

Series.Text = "成交率_女"

Series.X.DataField = "门店名称" 'X轴绑定到产品列

Series.Y.DataField = "成交率_女_合计" 'Y轴绑定到数量列

Chart.Stacked = True

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

Series = Chart.SeriesList2.Add() '给图表2增加一个图系

Series.Text = "客流数_男性"

Series.X.DataField = "门店名称" 'X轴绑定到产品列

Series.Y.DataField = "总客流_男_合计" 'Y轴绑定到数量列

Series = Chart.SeriesList2.Add() '给图表2增加一个图系

Series.Text = "客流数_女性"

Series.X.DataField = "门店名称" 'X轴绑定到产品列

Series.Y.DataField = "总客流_女_合计" 'Y轴绑定到数量列

Chart.Stacked2 = True

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

Chart.AxisY.Text = "男女成交率"

Chart.AxisY2.Text = "男女客流数"

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

[此贴子已经被作者于2018/5/22 15:25:19编辑过]

主题：柱状结构图