在 table 的顶部显示一列的总数

Question

我有一个 table 列的内容来自数据库。在 table 的底部，我也可以显示总值。但我想在 table 的顶部显示总计，因为有时有数百行，要查看总计，我必须滚动到末尾。

这可能吗？

我试过下面的代码。这是 table 末尾的总数。但是我想在 table

的顶部显示总数

<Table>
// This will create the column names
// I need to get the Total here above these column names
<tr>
  <td> Product </td>
  <td> Qty </td>
  <td> Price </td>
</tr> 

<% set ObjRS =ObjConn.execute ( "select * from pricetable")
 total= 0
 Do while Not ObjRS.EOf
  product = objrs("product")
  qty = objrs("Quantity")
  price = ObjRS("price")
  total = total+ price
  response.write "<td>" & product & "</td><td>" & qty & "</td><td>" & price & "</td><td>"

objrs.movenext
loop

response.write "<tr><td> & Total & </tr></td>

</table>

Answer 1

来自

response.write "<tr><td> & total & </td></tr>"

到

response.write "<thead><tr><th> & total & </th></tr></thead>

Answer 2

你可以暂时保存输出，然后按你喜欢的顺序输出（我不知道你在那里使用的语言，所以可能会有一些细微的变化，但一般来说最基本的解决方案）：

<Table>
// This will create the column names
// I need to get the Total here above these column names
<tr>
  <td> Product </td>
  <td> Qty </td>
  <td> Price </td>
</tr> 

<% set ObjRS =ObjConn.execute ( "select * from pricetable")
 sum = 0
 outText = ""
 Do while Not ObjRS.EOf
  product = objrs("product")
  qty = objrs("Quantity")
  price = ObjRS("price")
  total = sum + price
  outText = outText & "<tr><td>" & product & "</td><td>" & qty & "</td><td>" & price & "</td></tr>"

objrs.movenext
loop

response.write "<tr><td> & total & </td></tr>"
response.write outText

</table>

Answer 3

我会执行第二个查询来计算 SUM()。

如果您尝试遍历并将其全部分配给变量，Vbscript 可能会出现缓冲区问题——尤其是对于大量数据。 thead 技巧是骇人听闻的，会破坏您的结构。最好直接计算总和

在 table 的顶部显示一列的总数

Show the total of a column in the top of a table

vbscript

adodb

asp-classic