甜老师，我这样做了这个效果：
一个图形类型为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编辑过]
加好友 
发短信
Post By：2018/5/22 11:12:00 [只看该作者]
