Question

vb中用mschart画图时.ChartData = cd一句实时错误“函数参数错误”，为什么呀。。

Answer 1

cd必须是数组才可以

追问

For i = 1 To num
For j = 2 To sum + 1
cd(i, 1) = xlsheet2.Cells(i + 2, 1)
cd(i, j) = xlsheet2.Cells(i + 2, Q(j - 1))
Next j
Next i

是这样的。不知道哪里错了

追答

贴一下mschart相关的代码看看

追问

Private Sub ts()

With MSChart1
.ChartType = VtChChartType2dLine
.ChartData = cd
.TitleText = "二维曲线图"
.ShowLegend = True
For j = 1 To sum
.Plot.SeriesCollection(j).LegendText = P(j)
Next j
End With

End Sub

追答

MSChart1.Plot.DataSeriesInRow = True
试试

追问

还是那句chartdata错误啊。

追答

二条曲线需要三维数组，第一组是X轴上的那些标签
你的数据也可以把EXCEL当做数据库,然后用ADO得到记录集，再直接使用
Set MSChart1.DataSource=rst
以上两种方法都可以