各位请帮我看看,这段程序不能显示曲线。。问题出在哪?
Sub drawing()
Dim Choice As String
Dim j As Byte
Dim s As Integer
Dim Values() As Byte
Dim Rs() As Byte
Dim d As Date
Dim Con As New Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tej.mdb"
Rs() = "select 温度 from 温度记录 Where DATEDIFF(d,取温时间,NOW())<4"
Text4.Text = Rs() 
With MSChart1
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = -10
  MSChart1.ColumnCount = 1
  MSChart1.RowCount = 48 '设置显示数据个数
 MSChart1.Width = 300 * MSChart1.RowCount  '设置像素
Values() = Rs()
   MSChart1.ChartData = Values()
  
  j = j + 1
  If j > 48 Then
  For s = 2 To 48
  Values(s - 1) = Values(s)
  MSChart1.Row = s - 1
 MSChart1.ChartData = Values(s - 1)
  Next
  j = j - 1
  End IfEnd With
End Sub
这幅帖子说不能给分啊。。我是新来的。。请多帮忙。 如果可以。以后有分了在补给各位