VB.NET程序运行出现索引越界错误，求排查解决（附代码）

先来看你遇到的问题和代码片段：

运行VB.NET程序时遇到错误："Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index"
相关代码片段：

Protected Sub gvadmin_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles gv_admin.RowCommand
    Dim index As Integer = Convert.ToInt32(e.CommandArgument)
    Dim row As GridViewRow = gv_admin.Rows(index)
    If (e.CommandName = "viewdoc") Then
        Dim revno As String = gv_admin.DataKeys(index).Values(0).ToString()
        ' 后续代码...
    End If
End Sub

这个错误本质是你拿到的index不在gv_admin.Rows或DataKeys集合的有效范围内（也就是小于0，或者大于等于集合的长度）。下面是几个最可能的原因和对应的解决办法：

1. 按钮的CommandArgument没绑定到正确的行索引 #

这是最常见的问题——触发viewdoc命令的按钮（比如LinkButton）没有把当前行的索引传递给CommandArgument，导致e.CommandArgument是无效值（比如空字符串、默认的0，或者其他错误数字）。

解决办法：
在GridView的模板列里，给按钮设置CommandArgument='<%# Container.DataItemIndex %>'，示例代码如下：

<asp:TemplateField HeaderText="操作">
    <ItemTemplate>
        <asp:LinkButton ID="lnkViewDoc" runat="server" 
            CommandName="viewdoc" 
            CommandArgument='<%# Container.DataItemIndex %>'>
            查看文档
        </asp:LinkButton>
    </ItemTemplate>
</asp:TemplateField>

这样点击按钮时，e.CommandArgument就会准确拿到当前行的索引，不会出现越界的情况。

2. 分页导致的索引不匹配 #

如果你的GridView启用了分页，gv_admin.Rows只包含当前页的行，索引从0开始。如果你的CommandArgument用了错误的索引值（比如全量数据的行号，而不是当前页的索引），就会超出Rows集合的范围。

解决办法：
坚持用Container.DataItemIndex作为CommandArgument，它会自动适配分页后的当前页索引。另外确认GridView的AllowPaging和DataKeyNames配置正确，DataKeys会自动和当前页的行对应。

3. 回发时GridView数据未正确加载 #

如果在Page_Load里你只在!IsPostBack时绑定GridView数据，回发时gv_admin.Rows和DataKeys可能是空的或者不完整，这时候用任何索引都会报错。

解决办法：

• 如果你依赖ViewState保存GridView状态，确保没有禁用GridView的EnableViewState（默认是开启的），这样回发时Rows和DataKeys会自动保留。
• 如果禁用了ViewState，那需要在回发时重新绑定GridView数据，确保Rows和DataKeys有内容。不过不建议随便禁用ViewState，除非有明确的性能需求。

4. 未对CommandArgument做有效性校验 #

即使绑定了索引，也可能存在异常情况（比如页面异常回发导致CommandArgument为空），直接用Convert.ToInt32转换可能得到无效的索引（比如空字符串转成0，但此时GridView没有行）。

解决办法：
在使用索引前增加校验逻辑，避免异常：

Protected Sub gvadmin_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles gv_admin.RowCommand
    ' 先校验CommandArgument是否有效
    Dim argStr As String = e.CommandArgument?.ToString()
    If Not String.IsNullOrEmpty(argStr) AndAlso IsNumeric(argStr) Then
        Dim index As Integer = Convert.ToInt32(argStr)
        ' 再校验索引是否在有效范围内
        If index >= 0 AndAlso index < gv_admin.Rows.Count Then
            Dim row As GridViewRow = gv_admin.Rows(index)
            If e.CommandName = "viewdoc" Then
                ' 先校验DataKeys是否存在对应索引
                If index < gv_admin.DataKeys.Count Then
                    Dim revno As String = gv_admin.DataKeys(index).Values(0).ToString()
                    ' 后续代码...
                Else
                    ' 处理DataKeys索引无效的情况
                    Response.Write("无效的文档编号索引")
                End If
            End If
        Else
            ' 处理索引超出范围的情况
            Response.Write("无效的行索引")
        End If
    Else
        ' 处理CommandArgument无效的情况
        Response.Write("无效的请求参数")
    End If
End Sub

这层校验能帮你拦截大部分异常情况，让程序更健壮。

5. DataKeys配置错误 #

如果GridView的DataKeyNames属性没设置，或者设置的字段在数据源中不存在，gv_admin.DataKeys会是空集合，访问DataKeys(index)就会报错。

解决办法：
在GridView的标签里设置DataKeyNames为主键字段，比如：

<asp:GridView ID="gv_admin" runat="server" 
    DataKeyNames="RevNo" 
    OnRowCommand="gvadmin_RowCommand">
    ' 列配置...
</asp:GridView>

这样DataKeys会正确填充，你也可以直接用gv_admin.DataKeys(index).Value来获取主键值，比Values(0)更直观。

内容的提问来源于stack exchange，提问作者N.I.A