图表下方X轴显示的文字问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：图表3.jpg

如上图，在图表生成的按钮中用了下面这名代码生成2018-6这样的表示

Chart.AxisX.SetValueLabel(i,Ary(0) & "-" & Ary(1)) '指定字符表示

但每点击一次时下面的文字就变得重影了，如何在每次生成图表时都先清掉，

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

感觉这句没起作用，

谢谢！

清除的时候加上 Chart.Axisx.ClearValueLabel

另外想请教一个双图表的问题，

图表1没有问题，然后在后面加了图表2

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

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

Series2 = Chart.SeriesList2.Add() '增加图系2

Chart.AxisY2.Text = "金额"

Chart.AxisY2.Min = 0 '指定Y轴的最小值

Chart.AxisY2.Max = 60000 '指定Y轴的最大值

Series2.LineColor = Color.Blue '连接线的颜色

Series2.LineThickNess = 0.5 '连接的粗细

Series2.MarkShape = MarkShapeEnum.Dot '数据点的形状

Series2.MarkColor = Color.Green '数据点的颜色

Series2.MarkSize = 3 '标记点大小

For i As Integer = 2 To Xi+1 '逐个年月设置坐标

Series.X(i) = i '指定水平坐标

Series2.X(i) = i '指定水平坐标

Dim Ary As String() = Arys(i-2)

Dim r As DataRow = DataTables(tbn).Find("供应商 = '" & Tables(tbn2).Current("供应商") & "' and 年 = " & Ary(0) & " and 月 = " & Ary(1)) '找出对应年月的行

If r IsNot Nothing '如果找到对应年月的行

Series.Y(i) = r("数量") '指定数量作为垂直坐标

Chart.AxisX.SetValueLabel(i,Ary(0) & "-" & Ary(1)) '指定字符表示

Series2.Y2(i) = r("金额") '指定数量作为垂直坐标

Else

Series.Y(i) = 0

Series2.Y2(i) = 0

End If

出错提示：指定的参数已超出有效值的范围

上面金额与数量是同样的逻辑，红色的三处应该怎么写？

谢谢！

Series2.Length指定一下长度

最好是给个例子看看

确实如老师所说，没有指定长度。

此主题相关图片如下：图表4.jpg

另外一个问题，如上图，用了双图系后同时用两个条形图但重叠在一起了，如何让金额的条形图刚好靠在数量的右侧

谢谢！

Chart.BarClusterWidth2 = 80设置一下第二个图的宽度

这样是可以实现，但两个不同的宽度，看起来怪怪的，有没有办法设置第二个图系的绘制起始点偏离0.5这样，我现在想用又倍的刻度来错开显示，但那样点数在变化间隔很控制好，还是觉得两个靠在一起比较好些

帮忙看下7楼的方式是否可行，谢谢！

第二个图系设置的时候，控制好其x轴的坐标，不就好了？

比如第一个图系使用 1、3、5 的点，第二个使用 2、4、6 的点。

主题：图表下方X轴显示的文字问题