仅在循环中显示列名称一次

Posted 2021-05-04

我有一个名为rs1的记录集循环。当我显示结果时，我得到以下记录列表：

January - 1245
January - 5487
January - 8547
January - 8987
January - 0247
February - 7854
February - 8541
February - 9321
February - 9001
February - 6658

记录集的结果是正确的，正是我想要的，但正如您所看到的，月份列无连续地重复。有没有办法在我的结果的第一行显示月份名称ONLY ONCE如下所示？

January - 1245
        - 5487
        - 8547
        - 8987
        - 0247
February - 7854
         - 8541
         - 9321
         - 9001
         - 6658

我正在循环的方式如下：

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs1_numRows = rs1_numRows + Repeat1__numRows
%>

'Here is the display of the results

<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs1.MoveNext()
Wend
%>

答案

我喜欢DO-WHILE循环，但你可以使用你想要的任何循环，因为你需要的只是一个简单的if语句。

dim strMonth, numTotals
Response.Write "<table>"
do while not rs1.EOF
   numTotals = rs("numTotals")
   Response.Write "<tr>"
   if strMonth <> rs("monthName") then 
       strMonth = rs1("monthName")
       Response.Write "<td>" & strMonth & "</td>"
   else
       Response.Write "<td>&nbsp;</td>"
   end if

   Response.Write "<td>" & numTotals & "</td>"
   Response.Write "</tr>"

   rs1.MoveNext
loop

Response.Write "</table>"