Question

VB MSChart 控件用法

出了个怪事，百思不得其解。
mschart1 和 mschart2
主要代码
表1
Sql1 = "select 客户,sum(数量)as 数量,sum(金额)as 金额 from export group by 客户 order by 1 asc"
For j = 0 To rs.RecordCount - 1
If Not rs.BOF Or rs.EOF Then
arrData5(j, 1) = rs("客户") '--------------------第一列为行标签
arrData5(j, 2) = rs("数量") '--------------------第二列为柱形数据
arrData5(j, 3) = rs("金额") / 1000 '--------------------第三列为柱形数据
rs.MoveNext
End If
Next
.ChartData = arrData5
表1正常显示。横坐标为 客户名称 每行2列(数量和金额)
----------------------------------------------------------------
表2 就是 把客户 改成了年份。于是就出大问题了。
首先 横坐标没有显示年份。还是默认的R1 R2 R3...
其次 每行本应也是2列(数量和金额)，却变成了三列。而我发现第1列不知道是什么数据(每个数据相等)
第2列才是数量，第3列是金额。你说怪不怪！
我msgbox 了arrdata5每个值，值都是正确的。就是赋给chartData后，图表显示出来就不对！

Answer 1

Private Sub Command1_Click()
Dim arrData(3, 1 To 3)
    arrData(1, 1) = " " & 2012 & " "  ' 在第一列设置标签。
    arrData(2, 1) = 2013
    arrData(3, 1) = 2014
    
    arrData(1, 2) = 8
    arrData(2, 2) = 4
    arrData(3, 2) = 0.3
    
    arrData(1, 3) = 0.2
    arrData(2, 3) = 3
    arrData(3, 3) = 6.3
    MSChart1.ChartData = arrData

End Sub

追问

哥们，我找到原因了。行标题不能是数字。