asp 数据列表出来后 对列表中的数据进行求和
检索后数据列表输出后姓名班级得分小明230小王220小张240总分怎么求和ASP怎么写得分字段名为dengfen...
检索后数据列表输出后
姓名 班级 得分
小明 2 30
小王 2 20
小张 2 40
总分怎么求和 ASP怎么写
得分字段名为 dengfen 展开
姓名 班级 得分
小明 2 30
小王 2 20
小张 2 40
总分怎么求和 ASP怎么写
得分字段名为 dengfen 展开
2个回答
展开全部
如果你要用循环输出表,可以在循环体中进行累加,如:
zongfen = 0
Do Until Rs.EOF
zongfen = zongfen + Rs("dengfen")
Rs.MoveNext
Loop
或者使用合计查询
Set Rs = Conn.Execute("SELECT SUM(dengfen) FROM 表名 WHERE 与列表相同的查询条件")
Response.Write "总分:" & Rs(0)
Rs.Close
zongfen = 0
Do Until Rs.EOF
zongfen = zongfen + Rs("dengfen")
Rs.MoveNext
Loop
或者使用合计查询
Set Rs = Conn.Execute("SELECT SUM(dengfen) FROM 表名 WHERE 与列表相同的查询条件")
Response.Write "总分:" & Rs(0)
Rs.Close
追问
Dim i
i = 0
Do While Not rs.BOF And Not rs.EOF
strToPrint = strToPrint & " " & rs("dengfen") & "" & VBCrlf
strToPrint = strToPrint & " " & VBCrlf
strToPrint = strToPrint & " " & VBCrlf
If i >= intPageSize Then Exit Do
rs.MoveNext
Loop
rs.Close
需要统计出dengfen的总和
高手帮帮忙
追答
Dim i, zongfen
zongfen = 0
i = 0
Do While Not rs.BOF And Not rs.EOF
strToPrint = strToPrint & " " & rs("dengfen") & "" & VBCrlf
If Not(IsNull(rs("dengfen"))) Then zongfen = zongfen + CDbl(rs("dengfen"))
If i >= intPageSize Then Exit Do
rs.MoveNext
Loop
rs.Close
Response.Write "总分:" & zongfen
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询