Do While循环和If语句-位置

Question

在我提出另一个问题之前，我现在有另一个项目需要用我的Do while/if语句来解决。

strSQL = "exec sp_CoursesStartingSoon"
    objConn = New SqlConnection(strConnection)
    objConn.Open()
    objCmd = New SqlCommand(strSQL, objConn)
    rsData = objCmd.ExecuteReader(0)

    While rsData.Read()

        If (rsData("subject") = "F23") Then

            html += "<h1>Access to HE</h1>"
            html += "<p>" & rsData("name") & "</p>"
            html += "<p>" & rsData("level") & "</p>"

        ElseIf (rsData("subject") = "F06") Then

            html += "<h1>Art and Design</h1>"
            html += "<p>" & rsData("name") & "</p>"
            html += "<p>" & rsData("level") & "</p>"

        End If

    End While

现在我遇到的问题是，我需要H1标题只出现一次，目前它们在中，而循环在每一行上循环。有人能就如何做到这一点提出建议吗？

谢谢!

Answer 1

假设：

• 存储过程返回按subject字段排序的项。
• 您有许多用于subject=F23和subject=F06的项
• 您需要构建一个按主题分组的相同项的列表。 Dim titleF23 as String = "Access to HE“Dim titleF06 as String = "Art and Design”，而rsData.Read() if (rsData("subject") = "F23")则如果标题为+= titleF23 titleF23 >0，则html += titleF23 titleF23=“end If html +=”& rsData("name")和“html +=”& rsData("level") &“ElseIf (rsData("subject") = "F06")如果标题为F06.Length>0，则html += titleF06 titleF06 =”end if html +=“& rsData("name")和”html +=“& rsData("level")和”End if结束时间“

Answer 2

您可以为h1标题创建另一个if，这样如果您已经打印了一次，就不会再打印了。这有点贵，但很快就能解决。