Asp.net VB.NET通过For Each循环在Webforms页面中打印数据集数据

我在代码隐藏中使用以下代码将数据传递到我的aspx页面

Public Function GetFirstElement() As DataSet
    Dim ds As New DataSet
    Dim alUtil As New ALUtility
    Dim connString As String = AppSettings("conSQL")
    Using cnn As New SqlConnection(connString)
        cnn.Open()
        Using dad As New SqlDataAdapter("SELECT TOP 10 * FROM case", cnn)
            dad.Fill(ds)
        End Using
        cnn.Close()
    End Using
    Return ds

End Function

我试图用下面的代码在aspx页面内循环

 <% For Each dataRow As Data.DataRow In Me.GetFirstElement().Tables(0).Rows %> 

                                <div class="widget-body padset-lg">
                                    <div class="row cancel-paddings">
                                        <div class="col-md-1">
                                        </div>
                                        <div class="col-md-11">
                                            <h2 class="darker-text font-size-sm fonts-tight cancel-margin fonts-bold margset-bottom-md">
                                               <%= dataRow["short_description"].ToString() %></h2>
                                            <p class="pale-text font-size-sm cancel-margin fonts-bold">
                                               <%= dataRow["case_id"].ToString() %></p>
                                            <p class="darker-text font-size-xs fonts-tight fonts-bold cancel-margin">
                                                Medium Priority, New<br />
                                                John Doe ABC Company,
                                                <br />
                                                10.23AM, 12/11/2016</p>
                                        </div>
                                    </div>
                                    <div class="card-content height-auto">
                                    </div>
                                </div>
                    </div>
                    <% Next%>

中等优先级，新增

约翰·多伊ABC公司，


2016年11月12日上午10:23

当我尝试运行这个循环时，我得到了以下错误

BC30203:应为标识符

---

有人能帮我吗。我是一名C#程序员，不熟悉VB.NET。我已经成功地在C#中使用了循环，但VB中的相同方法不起作用。我也尝试了asp:Repeater。因此，我得到了“容器未定义”错误。

如果我们去掉除ASP.NET特殊标记以外的所有HTML标记，我们将得到以下循环结构：

<% For Each dataRow As Data.DataRow In Me.GetFirstElement().Tables(0).Rows %> 

   <%-- omitted --%>

   <%= dataRow["short_description"].ToString() %>

   <%-- omitted --%>

   <%= dataRow["case_id"].ToString() %>

   <%-- omitted --%>

<% Next %>

参考：

---

如果我们去掉除ASP.NET特殊标记以外的所有HTML标记，我们将得到以下循环结构：

<% For Each dataRow As Data.DataRow In Me.GetFirstElement().Tables(0).Rows %> 

   <%-- omitted --%>

   <%= dataRow["short_description"].ToString() %>

   <%-- omitted --%>

   <%= dataRow["case_id"].ToString() %>

   <%-- omitted --%>

<% Next %>

参考：

Tyr这个（你的代码隐藏）案例应该是[dbo].[case]

Public Function GetFirstElement() As DataSet
   Dim ds As New DataSet
   Dim alUtil As New ALUtility
   Dim connString As String = AppSettings("conSQL")
   Using cnn As New SqlConnection(connString)
       cnn.Open()
       Using dad As New SqlDataAdapter("SELECT TOP 10 * FROM [dbo].[case]", cnn)
           dad.Fill(ds)
       End Using
       cnn.Close()
   End Using
   Return ds

End Function

    <div class="widget-body padset-lg">
        <div class="row cancel-paddings">
            <div class="col-md-1">
            </div>
                <div class="col-md-11">
                <h2 class="darker-text font-size-sm fonts-tight cancel-margin fonts-bold margset-bottom-md">
                <%= dataRow("short_description").ToString() %></h2>
                <p class="pale-text font-size-sm cancel-margin fonts-bold">
                <%= dataRow("case_id").ToString() %></p>
                <p class="darker-text font-size-xs fonts-tight fonts-bold cancel-margin">
                Medium Priority, New<br />
                John Doe ABC Company,
                <br />
                10.23AM, 12/11/2016</p>
                </div>
            </div>
        <div class="card-content height-auto">
        </div>
    </div>

您的aspx代码应该是

Public Function GetFirstElement() As DataSet
   Dim ds As New DataSet
   Dim alUtil As New ALUtility
   Dim connString As String = AppSettings("conSQL")
   Using cnn As New SqlConnection(connString)
       cnn.Open()
       Using dad As New SqlDataAdapter("SELECT TOP 10 * FROM [dbo].[case]", cnn)
           dad.Fill(ds)
       End Using
       cnn.Close()
   End Using
   Return ds

End Function

    <div class="widget-body padset-lg">
        <div class="row cancel-paddings">
            <div class="col-md-1">
            </div>
                <div class="col-md-11">
                <h2 class="darker-text font-size-sm fonts-tight cancel-margin fonts-bold margset-bottom-md">
                <%= dataRow("short_description").ToString() %></h2>
                <p class="pale-text font-size-sm cancel-margin fonts-bold">
                <%= dataRow("case_id").ToString() %></p>
                <p class="darker-text font-size-xs fonts-tight fonts-bold cancel-margin">
                Medium Priority, New<br />
                John Doe ABC Company,
                <br />
                10.23AM, 12/11/2016</p>
                </div>
            </div>
        <div class="card-content height-auto">
        </div>
    </div>

中等优先级，新增

约翰·多伊ABC公司，


2016年11月12日上午10:23

Tyr这个（你的代码隐藏）案例应该是[dbo].[case]

Public Function GetFirstElement() As DataSet
   Dim ds As New DataSet
   Dim alUtil As New ALUtility
   Dim connString As String = AppSettings("conSQL")
   Using cnn As New SqlConnection(connString)
       cnn.Open()
       Using dad As New SqlDataAdapter("SELECT TOP 10 * FROM [dbo].[case]", cnn)
           dad.Fill(ds)
       End Using
       cnn.Close()
   End Using
   Return ds

End Function

    <div class="widget-body padset-lg">
        <div class="row cancel-paddings">
            <div class="col-md-1">
            </div>
                <div class="col-md-11">
                <h2 class="darker-text font-size-sm fonts-tight cancel-margin fonts-bold margset-bottom-md">
                <%= dataRow("short_description").ToString() %></h2>
                <p class="pale-text font-size-sm cancel-margin fonts-bold">
                <%= dataRow("case_id").ToString() %></p>
                <p class="darker-text font-size-xs fonts-tight fonts-bold cancel-margin">
                Medium Priority, New<br />
                John Doe ABC Company,
                <br />
                10.23AM, 12/11/2016</p>
                </div>
            </div>
        <div class="card-content height-auto">
        </div>
    </div>

您的aspx代码应该是

Public Function GetFirstElement() As DataSet
   Dim ds As New DataSet
   Dim alUtil As New ALUtility
   Dim connString As String = AppSettings("conSQL")
   Using cnn As New SqlConnection(connString)
       cnn.Open()
       Using dad As New SqlDataAdapter("SELECT TOP 10 * FROM [dbo].[case]", cnn)
           dad.Fill(ds)
       End Using
       cnn.Close()
   End Using
   Return ds

End Function

    <div class="widget-body padset-lg">
        <div class="row cancel-paddings">
            <div class="col-md-1">
            </div>
                <div class="col-md-11">
                <h2 class="darker-text font-size-sm fonts-tight cancel-margin fonts-bold margset-bottom-md">
                <%= dataRow("short_description").ToString() %></h2>
                <p class="pale-text font-size-sm cancel-margin fonts-bold">
                <%= dataRow("case_id").ToString() %></p>
                <p class="darker-text font-size-xs fonts-tight fonts-bold cancel-margin">
                Medium Priority, New<br />
                John Doe ABC Company,
                <br />
                10.23AM, 12/11/2016</p>
                </div>
            </div>
        <div class="card-content height-auto">
        </div>
    </div>

中等优先级，新增

约翰·多伊ABC公司，


2016年11月12日上午10:23