Question

能不能把这个mschart控件 改那个属性可以实现R1.R2...R5 x坐标 为y坐标 效果图是下面图顺时针旋转90度

Answer 1

可以把Column Chart 改成Barchart.X轴，Y轴都可分类。

追问

nRecords = rs.RecordCount
nFields = rs.Fields.Count
ReDim Data(nRecords - 1, nFields - 1)

For i = 0 To nRecords - 1
For j = 0 To nFields - 1
Data(i, j) = rs.Fields(j)
Next j
rs.MoveNext
Next i

rs.Close Set rs = Nothing
MSChart1.ChartData = Data
MSChart1.chartType = VtChChartType2dBar

怎么改才能实现

追答

要改两个地方。第一数据源，倒一下，类似
For i = 0 To nFields - 1
For j = 0 To nRecords - 1
Data(i, j) = rs.Fields(i)
Next j
rs.MoveNext
Next i
第二个改表类型
MSChart1.chartType = VtChChartType2dColumn(如果没有这个，找类似的，关键字Column)