我写了这样的程序,把表中的速度量变化曲线描述出来,可是结果出现了4根曲线,怎么回事呢?怎么样才能去掉那几根曲线呢?Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;Data source=E:\测试4_new\MysampleDB.mdb"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from 表", cn, adOpenDynamic, adLockBatchOptimistic
With MSChart1
.chartType = VtChChartType2dLine
.TitleText = "速度变化图"
.RowCount = rs.RecordCount
For i = 1 To rs.RecordCount
.Row = i
.data = rs("速度")
.ColumnLabel = rs("速度")
rs.MoveNext
Next
End With End Sub
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;Data source=E:\测试4_new\MysampleDB.mdb"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from 表", cn, adOpenDynamic, adLockBatchOptimistic
With MSChart1
.chartType = VtChChartType2dLine
.TitleText = "速度变化图"
.RowCount = rs.RecordCount
For i = 1 To rs.RecordCount
.Row = i
.data = rs("速度")
.ColumnLabel = rs("速度")
rs.MoveNext
Next
End With End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货