1

我在尝试将空行添加到网格视图时遇到索引超出范围异常。这是后面的代码。还有更多列,我只是将它们删除以缩短代码。

   Private Sub AddNewGridRow()
        Dim rowIndex As Integer = 0

        If ViewState("CurrentData") IsNot Nothing Then
            Dim dtCurrentData As DataTable = DirectCast(ViewState("CurrentData"), DataTable)
            Dim drCurrentRow As DataRow = Nothing
            If dtCurrentData.Rows.Count > 0 Then
                For i As Integer = 1 To dtCurrentData.Rows.Count
                    Dim lblVoucher As Label = DirectCast(GridView1.Rows(rowIndex).Cells(1).FindControl("lblVoucher"), Label)

                    drCurrentRow = dtCurrentData.NewRow()
                    drCurrentRow("RecID") = i + 1

                    dtCurrentData.Rows(i - 1)("RecID") = lblVoucher
                    rowIndex += 1
                Next
                dtCurrentData.Rows.Add(drCurrentRow)
                ViewState("CurrentData") = dtCurrentData
                GridView1.DataBind()
            End If
        Else
            Response.Write("ViewState is null")
        End If
        SetPreviousData()
    End Sub
    Private Sub SetPreviousData()
        Dim rowIndex As Integer = 0

        If ViewState("CurrentData") IsNot Nothing Then
            Dim dt As DataTable = DirectCast(ViewState("CurrentData"), DataTable)
            If dt.Rows.Count > 0 Then
                For i As Integer = 0 To dt.Rows.Count - 1
    'Out of range exception happens here when trying to fill the previous data.
                    Dim lblVoucher As Label = DirectCast(GridView1.Rows(rowIndex).Cells(1).FindControl("lblVoucher"), Label)

                    lblVoucher.Text = dt.Rows(i)("Voucher").ToString()

                    rowIndex += 1
                Next
            End If
        End If
    End Sub

这是该列的 aspx。

    <asp:TemplateField HeaderText="Voucher" SortExpression="RecID">
        <HeaderStyle HorizontalAlign="Center" Width="100px" />
        <ItemStyle HorizontalAlign="Center" />
            <ItemTemplate>
                <asp:Label ID="lblVoucher" runat="server" Text='<%#Eval("RecID") %>'></asp:Label>
            </ItemTemplate>
        </asp:TemplateField>
4

1 回答 1

0

您需要将代码放入调试中并查看语句的哪个部分导致了异常。

你有两个可能的问题:

  1. 您没有足够的行来满足 rowIndex 要求。

  2. 您没有足够的单元格来满足单元格 (1) 的要求。

我会尝试重写问题行如下:

    Dim lblVoucher As Label = Nothing

    If GridView1.Rows.Count < rowIndex Then
        Dim oRow As DataGridViewRow

        oRow = GridView1.Rows(rowIndex)
        If oRow.Cells.Count > 1 Then
            lblVoucher = TryCast(oRow.Cells(1).FindControl("lblVoucher"), Label)
        Else
            ' Do something here when you don't have cells
        End If
    Else
        ' Do something here when you don't have a row
    End If

当您没有您期望的内容时,您可以在 else 子句中设置断点或抛出异常或任何适合您的应用程序的内容。

于 2012-07-22T18:56:10.727 回答