0

Shadow Wizard 帮我向我展示这段代码：

<%
Set oRS= TarefasConexaoMSSQL.Execute("SELECT * FROM apptabela ORDER BY oito ASC")
Dim currentGroupName, previousGroupName
currentGroupName = ""
previousGroupName = ""
Do Until oRS.EOF
    currentGroupName = oRS("oito")
    One = oRS("um")
    Two = oRS("dois")
    If currentGroupName<>previousGroupName Then
        Response.Write("<p>")
        Response.Write("<a href='#'>" & currentGroupName & "</a>")
        Response.Write("</p>")
    End If
    Response.Write("- One: " & One & ", Two: " & Two & "<br />")
    previousGroupName = currentGroupName
    oRS.MoveNext
Loop
oRS.Close
%>

它正在产生类似的东西：

1000

  • 一：苹果，二：梨
  • 一：大众，二：雷克萨斯

1001

  • 一：汽车，二：船

1002

  • 一：鸡，二：牛
  • 一：钢笔，二：铅笔
  • 一：C#，二：C++

我想要的是在每个组的底部添加一行，例如 Sum，以便稍后我可以进行一些计算：

1000

  • 一：苹果，二：梨
  • 一：大众，二：雷克萨斯
  • 总和：X，Y

1001

  • 一：汽车，二：船
  • 总和：X，Y

1002

  • 一：鸡，二：牛
  • 一：钢笔，二：铅笔
  • 一：C#，二：C++
  • 总和：X，Y

谢谢

4

2 回答 2

0

http://www.pengoworks.com/workshop/jquery/calculation/calculation.plugin.htm

你可以使用这个 jquery 插件来满足你的要求。如果您不明白如何实施，请告诉我。我最近用过这个。

于 2013-01-11T12:13:33.597 回答
0 
<%
Set oRS= TarefasConexaoMSSQL.Execute("SELECT * FROM apptabela ORDER BY oito ASC")
Dim currentGroupName, previousGroupName, sumone, sumtwo
currentGroupName = ""
previousGroupName = ""
Do Until oRS.EOF
    currentGroupName = oRS("oito")
    One = oRS("um")
    Two = oRS("dois")
    If currentGroupName<>previousGroupName Then
        (!)Response.write("- Sum: " & sumone & ", " & sumtwo)
        (!)sumone = 0 / ""
        (!)sumtwo = sumone
        Response.Write("<p>")
        Response.Write("<a href='#'>" & currentGroupName & "</a>")
        Response.Write("</p>")
    End If
    Response.Write("- One: " & One & ", Two: " & Two & "<br />")
    (!)sumone = sumone + one
    (!)sumtwo = sumtwo + two
    previousGroupName = currentGroupName
    oRS.MoveNext
Loop
oRS.Close
%>

这应该解决它。当您按组名排序并希望为每个组计算总和时，您必须在打印组元素时进行总结，并在进入新组时打印总和 + 在再次总结之前清除总和。如果您使用的是字符串，这也应该有效，但也许您想在总结时添加空格

于 2013-01-11T13:48:44.510 回答