如何用MSCHART绘制由DATAGRID中指定列的散布图?在线等!急急急.....

[prodeng]

用数组传递数据时不能正确得到图形,且最大与最小值都得不到,请教源代码?

[啊维]

UP

[RUKYO]

关注，在论坛里搜一下吧！

[lk_cool]

这个是我在点击listview的标题时把获得的值放到数组Batch_array中
在mschart中显示相关内容的代码或许有用

最大值，最小值可以给数组排一下序

bt是标题的意思
leng是数组的长度
TempArray是临时数组

Public Sub ShowChar(bt As String, leng As Integer)

On Error GoTo errshow

Dim Tstr As String
Dim TT As String

With MSChart1

.chartType = 9
.ColumnCount = Total_City '设置列数
.RowCount = 1 '设置每一列的列数
TT = Batch_array(1) & ":" & Left(TempArray(1), leng - 1) & " "

For Column = 1 To Total_City
.Column = Column '返回当前列数
.Data = Mid(TempArray(Column), leng, 3)
.RowLabel = bt
If Column < Total_City Then
.ColumnLabel = Batch_array(Column + 1) & ":" & Left(TempArray(Column + 1), leng - 1) & " "
Else
.ColumnLabel = TT
End If
Next Column

'将图表作为图例的背景。
.ShowLegend = True
.SelectPart VtChPartTypePlot, 1, 1, _
1, 1
.EditCopy
.SelectPart VtChPartTypeLegend, 1, _
1, 1, 1
.EditPaste
End With

Exit Sub
errshow:

MsgBox Err.Descriptionk, vbDefaultButton1, "提示"

End Sub

[prodeng]

谢谢啦
我试试有没有用,好像还是有点问题