vb 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

亲好几次提问关于mschart控件的使用方法，既然是从新学的话我建议学Tchart控件的使用方法，因为mschart控件使用环境高于Tchart控件，而且Tchart控件易掌握，用的人也较多，故互相交流的大哥大姐也多啊，

很标准的数据，根据第三位（采集通道）进行分组判断，有几个采集通道就生成几个数组，第三位相同的所有数据取第5－8位（也就是电压值）放入同一个数组，曲线图就出来了。
希望对你有帮助，有疑问请追问或是Hi

在这里给出完整的代码，显然不太可能，涉及到你是VB什么版本，ACCESS是什么版本，数据库名以及数据表以及数据表结构。思路：

1，要连接数据库并返回记录集，获得数据。

2，设置Mschart的数据源为上述获得的记录集。

我给你一个VB6的例子，请看附件。

Microsoft Chart 控件是一个数据绑定控件，允许您以图形方式表示数值数据。不像其他数据绑定控件，Chart 控件不能同 Remote Data 控件一起使用，也不能同 Data 控件一起使用。它可以同 ADO Data Control、ADO Recordset 以及 Data Environment 一起使用。该示例将显示如何打开一个 ADO Recordset，该 ADO Recordset 包含了您想要显示的字段，并且 Chart 控件的 DataSource 属性设置为 Recordset 对象。如果第一个字段包含字符串数据，则该数据将作为 X 轴标签使用。下面的示例显示了三组数据，先创建一个具有四个字段的 Recordset 对象；第一个字段包含 X 轴的标签，而其他的字段作为系列数据显示。Option Explicit' 确保设置一个对 Microsoft ActiveX Data ' Objects 20 Library 的引用。Private rsProducts As New ADODBRecordsetPrivate cn As New ADODBConnectionPrivate Sub Form_Load() Dim strQuery As String ' SQL 查询字符串。 ' 首先将路径改为到您机器的一个有效路径。 cnConnectionString = _ "Provider=MicrosoftJetOLEDB351;Data Source=" & _ "C:\Program Files\Microsoft Visual Studio\VB98\nwindmdb" ' <-更改该路径。 ' 打开连接。 cnOpen ' 创建一个只检索四个字段的查询。 strQuery = "SELECT ProductName, UnitPrice, " & _ "UnitsInStock, UnitsOnOrder FROM Products WHERE SupplierID = 1" ' 打开记录集。 rsProductsOpen strQuery, cn, adOpenKeyset ' 将 DataSource 设置为该记录集。 With MSChart1 ShowLegend = True Set DataSource = rsProducts End WithEnd Sub

---