您的位置：程序门 -> vb -> 控件

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

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

各位帮个忙，mschart查询显示多条曲线[已结贴,结贴人:qian21h]

发表于：2007-04-10 13:23:08 楼主

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条曲线
高手帮忙，在线等，解决马上结贴

发表于：2007-04-10 13:25:511楼得分:0

来人啊
up

发表于：2007-04-10 13:34:502楼得分:0

uping

发表于：2007-04-10 13:51:443楼得分:0

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

发表于：2007-04-10 14:15:424楼得分:0

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

发表于：2007-04-10 14:23:255楼得分:0

写一个显示函数吧，这样方便一点

发表于：2007-04-10 14:27:486楼得分:0

楼上两位老兄能不能说详细点
谢谢
在线等

发表于：2007-04-10 14:34:187楼得分:0

是不是嫌分少了
少了马上加分啊

发表于：2007-04-11 10:21:468楼得分:0

为什么昨天等到今天
自己真的琢磨不出来了
代码就是这么点啊
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

发表于：2007-04-12 09:47:579楼得分:0

该回复于2007-12-28 17:50:30被管理员或版主删除

发表于：2007-04-14 18:58:1610楼得分:0

为什么我结不了帖
没一个人说下嘛

发表于：2007-04-17 15:28:2411楼得分:100

楼主加油
接分

下一篇：vb 中發生的錯誤
上一篇：求助winsock控件传送文件的代码

其他资讯