MyException - 我的异常网
当前位置:我的异常网» VB » 重开第三帖关于mschart多曲线,希望这次有所突破解

重开第三帖关于mschart多曲线,希望这次有所突破解决方案(2)

www.MyException.Cn  网友分享于:2013-12-28  浏览:51次

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!id
MSChart1.Visible = True
Else
MsgBox "没有你要分析的数据!!! "
Exit Sub
End If
If rs.EOF Then
MsgBox "无查询数据!请选择合适的时间段查询! "
Exit Sub
End If

If rs.RecordCount > 0 Then '当记录大于零时
rs.MoveFirst '移到第一条记录
nums = rs.RecordCount '给nums赋值
ReDim arrValues(1 To nums, 1 To 2) '定义动态数组
For i = 1 To nums '给数组赋值
arrValues(i, 1) = " " '& Format(rs1!时间, "hh:mm ")
arrValues(i, 2) = val(rs!温度)
'arrValues(i, 3) = val(rs!湿度)
'arrValues(i, 3) = val(Rnd * 7 + 18)
'arrValues(i, 4) = val(Rnd * 12 + 15)
rs.MoveNext
Next i
With MSChart1
.RowCount = 250
.ColumnCount = Len(Text1.Text) \ 2 + 1
.ColumnLabel = Left(Text1.Text, 1) & "号温度 "
For i = 1 To UBound(arrValues)
.DataGrid.SetData i, j, arrValues(i, 1), 0
.DataGrid.SetData i, j + 1, arrValues(i, 2), 0
Next i

End With



With MSChart1.Plot.Axis(VtChAxisIdX).CategoryScale
.Auto = False
.DivisionsPerTick = nums
End With
End If
End Sub
完整的代码

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有