[求助]在vb中, 如何将 select sum的结果存到一个text里 ? - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]在vb中, 如何将 select sum的结果存到一个text里 ?

标题：[求助]在vb中, 如何将 select sum的结果存到一个text里 ?

只看楼主

luckyybr

等　级：新手上路
帖　子：38
专家分：0
注　册：2007-9-30

楼主

问题点数：0 回复次数：6

[求助]在vb中, 如何将 select sum的结果存到一个text里 ?

对数据表里的数据求和,再将结果放到text里显示出来

怎么实现?

谢谢

2007-10-06 13:43

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 2 楼

得分:0

purana来。

2007-10-06 13:51

gggg007

等　级：新手上路
帖　子：67
专家分：0
注　册：2007-7-18

第 3 楼

得分:0

rs.Open "select sum(XXX) as ZZ from cplk ", con, 1, 3
If IsNull(rs!ZZ) Then
MsgBox "没有找到相关数据", vbExclamation, "提示"
Else
Set Text7.DataSource = rs
Text7.DataField = ZZ
Text7.Text = rs!ZZ
End If

2007-10-06 16:03

luckyybr

等　级：新手上路
帖　子：38
专家分：0
注　册：2007-9-30

第 4 楼

得分:0

以下是引用gggg007在2007-10-6 16:03:54的发言：
rs.Open "select sum(XXX) as ZZ from cplk ", con, 1, 3
If IsNull(rs!ZZ) Then
MsgBox "没有找到相关数据", vbExclamation, "提示"
Else
Set Text7.DataSource = rs
Text7.DataField = ZZ
Text7.Text = rs!ZZ
End If

谢谢,但是我用了,会出错的
报错信息"实时错误3001":

arguments are of the wrong type , are out of acceptable range, or are in confilict with one another

[此贴子已经被作者于2007-10-6 21:39:18编辑过]

2007-10-06 16:22

purana