各位帮个忙，Mschart查询显示多条曲线

Question

Private Sub Command1_Click()
On Error Resume Next
Dim date1 As String
'''''''''''''''
k = 1
Dim data() As String
data() = Split(Text1.Text, ",")
For j = 0 To UBound(data())
   If data(j) = "" Then
    MsgBox "请输入您要分析的ID号"
     Exit Sub
   End If        txtSQL = "select * from 监控温度表 where  id = " & data(j)    '查询语句
     
  Set rs = ESQL(txtSQL)     '执行查询语句
  If rs.RecordCount > 0 Then
     date1 = rs.Fields("id")
     MSChart1.Visible = True
   Else
       MsgBox "没有你要分析的数据！！！"
       Exit Sub
  End If
   If rs.EOF Then
   MsgBox "无查询数据！请选择合适的时间段查询！"
   Exit Sub
   End If
   Next
  If rs.RecordCount > 0 Then     '当记录大于零时
     rs.MoveFirst     '移到第一条记录
     nums = rs.RecordCount     '给nums赋值
    
     ReDim arrValues(1 To nums, 1 To 3)     '定义动态数组
    For i = 1 To nums     '给数组赋值
        arrValues(i, 1) = " "  '& Format(rs1!时间, "hh:mm")
        arrValues(i, 2) = val(rs.Fields("温度"))
        rs.MoveNext
    Next i
    
         MSChart1.ChartData = arrValues     '图表显示数据
         With MSChart1.Plot.Axis(VtChAxisIdX).CategoryScale
             .Auto = False
             .DivisionsPerTick = nums
        End With
  End If
  
End Sub
现在我在 text1.text中输入1或者2。。（1，2，3。。是数据库中的id号）可以显示单条曲线
我现在想输入1，2，3或者别的要出现id=1，2，3的3条曲线
高手帮忙，在线等，解决马上结贴

Answer 1

怎么没人啊
没人怎么结贴啊
CSDN没落了？？？

Answer 2

封装一个画曲线的函数，参数是ID。
分拆text中的值，循环调用该函数

Answer 3

为什么昨天等到今天
自己真的琢磨不出来了
代码就是这么点啊 
Private Sub Command1_Click()
On Error Resume Next
Dim data() As String
data() = Split(Text1.Text, ",")
For j = 0 To UBound(data())
   If data(j) = "" Then
    MsgBox "请输入您要分析的ID号"
     Exit Sub
   End If
  txtSQL = "select * from 监控温度表 where  id = " & data(j)    '查询语句
  Set rs = ESQL(txtSQL)     '执行查询语句
  If rs.RecordCount > 0 Then     '当记录大于零时
     rs.MoveFirst     '移到第一条记录
     nums = rs.RecordCount     '给nums赋值
    ReDim arrValues(1 To nums, 1 To 3)     '定义动态数组
    For i = 1 To nums     '给数组赋值
        arrValues(i, 1) = " "  '& Format(rs1!时间, "hh:mm")
        arrValues(i, 2) = val(rs.Fields("温度"))
        arrValues(i, 3) = val(Rnd * 20 + 15) '我添加了条随机显示数据的曲线，可我现在要显示输入的ID号的曲线。
        rs.MoveNext
    Next i
         MSChart1.ChartData = arrValues
  End If
Next j
End Sub