原程序如下: Me.MSChart1.ColumnCount = Adodc1.Recordset.RecordCount Adodc1.Recordset.MoveFirst 'While Not Adodc1.Recordset.EOF For I = 0 To Adodc1.Recordset.RecordCount - 1 MSChart1.Data = Adodc1.Recordset.Fields(1) MSChart1.RowLabel = Adodc1.Recordset.Fields(0) 'Adodc1.Recordset.MoveNext Next 'Wend
VB中自带的空间MSCHART功能很强大,肯定符合你的要求,具体的使用方法可以查一下MSDN
告诉你一个好控件teechart,very good!
msdn:MSChart 控件示例 下面的示例显示一个具有 8 行 8 列数据的三维图表,并设置了图例的参数。Private Sub Command1_Click() With MSChart1 '显示一个具有 8 行 8 列数据的三维图表。 .ChartType = VtChChartType3dBar .ColumnCount = 8 .RowCount = 8 For column = 1 To 8 For row = 1 To 8 .Column = column .Row = row .Data = row * 10 Next row Next column '将图表作为图例的背景。 .ShowLegend = True .SelectPart VtChPartTypePlot, index1, index2, _ index3, index4 .EditCopy .SelectPart VtChPartTypeLegend, index1, _ index2, index3, index4 .EditPaste End With End Sub
MSDN中有详细的示例
张三 90
李四 86
孙五 80要在MSCHAR中X轴显示
张三 李四 孙五
Y轴显示值
90 86 80如何做
我用mschat.data 和mschat.rowcount 和循环做了,不对
Adodc1.Recordset.MoveFirst
'While Not Adodc1.Recordset.EOF
For I = 0 To Adodc1.Recordset.RecordCount - 1
MSChart1.Data = Adodc1.Recordset.Fields(1)
MSChart1.RowLabel = Adodc1.Recordset.Fields(0)
'Adodc1.Recordset.MoveNext
Next
'Wend
下面的示例显示一个具有 8 行 8 列数据的三维图表,并设置了图例的参数。Private Sub Command1_Click()
With MSChart1
'显示一个具有 8 行 8 列数据的三维图表。
.ChartType = VtChChartType3dBar
.ColumnCount = 8
.RowCount = 8
For column = 1 To 8
For row = 1 To 8
.Column = column
.Row = row
.Data = row * 10
Next row
Next column
'将图表作为图例的背景。
.ShowLegend = True
.SelectPart VtChPartTypePlot, index1, index2, _
index3, index4
.EditCopy
.SelectPart VtChPartTypeLegend, index1, _
index2, index3, index4
.EditPaste
End With
End Sub