循环渲染表格异常：首/次列无数据时表格行消失

核心问题 #

你的代码存在两处关键错误：

1. 开头的If判断逻辑错误，导致部分场景下无法进入循环；
2. 输出用户数据时未处理记录集已到末尾的情况，可能引发报错中断页面渲染。

修正方案1：修复记录集循环逻辑 #

直接调整判断逻辑并完善空数据处理：

<%
Set RScolumnA = Conn.Execute("SELECT username, firstname, middlename, lastname FROM users WHERE vStatus = 200 ORDER BY username ASC")
Set RScolumnB = Conn.Execute("SELECT username, firstname, middlename, lastname FROM users WHERE vStatus = 300 ORDER BY username ASC")
Set RScolumnC = Conn.Execute("SELECT username, firstname, middlename, lastname FROM users WHERE vStatus = 400 ORDER BY username ASC")

' 正确判断：只要有一个记录集有数据就进入循环
If Not (RScolumnA.EOF AND RScolumnB.EOF AND RScolumnC.EOF) Then
    Do Until RScolumnA.EOF AND RScolumnB.EOF AND RScolumnC.EOF
%>
<tr>
    <td>
        <% 
        ' 输出200状态用户，无数据则留空
        If Not RScolumnA.EOF Then
            Response.Write RScolumnA("firstname") & " " & RScolumnA("lastname")
        End If
        %>
    </td>
    <td>
        <% 
        ' 输出300状态用户，无数据则留空
        If Not RScolumnB.EOF Then
            Response.Write RScolumnB("firstname") & " " & RScolumnB("lastname")
        End If
        %>
    </td>
    <td>
        <% 
        ' 输出400状态用户，无数据则留空
        If Not RScolumnC.EOF Then
            Response.Write RScolumnC("firstname") & " " & RScolumnC("lastname")
        End If
        %>
    </td>
</tr>
<%
        ' 仅当记录集未到末尾时，才移动指针
        If Not RScolumnA.EOF Then RScolumnA.MoveNext
        If Not RScolumnB.EOF Then RScolumnB.MoveNext
        If Not RScolumnC.EOF Then RScolumnC.MoveNext
    Loop
End If

' 释放资源
RScolumnA Close : Set RScolumnA = Nothing
RScolumnB.Close : Set RScolumnB = Nothing
RScolumnC.Close : Set RScolumnC = Nothing
%>

关键修正点 #

• 把开头的If条件改为Not (RScolumnA.EOF AND RScolumnB.EOF AND RScolumnC.EOF)，确保只要有一个状态有用户就渲染表格；
• 每个<td>内先判断记录集状态，再输出用户数据，避免空记录集访问字段报错；
• 增加记录集关闭与资源释放步骤，避免内存泄漏。

修正方案2：使用GetRows转数组处理 #

GetRows可以将记录集转为二维数组，通过索引访问数据，逻辑更清晰：

<%
' 查询并转成数组（GetRows返回格式：(字段索引, 行索引)）
arrA = Conn.Execute("SELECT username, firstname, middlename, lastname FROM users WHERE vStatus = 200 ORDER BY username ASC").GetRows
arrB = Conn.Execute("SELECT username, firstname, middlename, lastname FROM users WHERE vStatus = 300 ORDER BY username ASC").GetRows
arrC = Conn.Execute("SELECT username, firstname, middlename, lastname FROM users WHERE vStatus = 400 ORDER BY username ASC").GetRows

' 获取各数组的用户数量
countA = UBound(arrA, 2) + 1
countB = UBound(arrB, 2) + 1
countC = UBound(arrC, 2) + 1

' 取最大行数，确保所有用户都能被渲染
maxRows = countA
If countB > maxRows Then maxRows = countB
If countC > maxRows Then maxRows = countC

' 循环渲染每一行
If maxRows > 0 Then
    For i = 0 To maxRows - 1
%>
<tr>
    <td><%= If i < countA Then arrA(1, i) & " " & arrA(3, i) Else "" %></td>
    <td><%= If i < countB Then arrB(1, i) & " " & arrB(3, i) Else "" %></td>
    <td><%= If i < countC Then arrC(1, i) & " " & arrC(3, i) Else "" %></td>
</tr>
<%
    Next
End If
%>

优势 #

• 数组访问比记录集指针操作更高效，避免了EOF判断的复杂逻辑；
• 通过索引直接定位用户，代码逻辑更直观，不易出错。

内容的提问来源于stack exchange，提问作者Steen