I am running a VB.NET program and having an error of
"Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index"
My code looks like below:
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()
Dim dept As String = gv_admin.DataKeys(index).Values(1).ToString()
Dim ki As String = gv_admin.DataKeys(index).Values(2).ToString()
Dim url As String = "ScheduleViewDoc.aspx"
Dim s As String = "window.open('" & url & "?" & "revno=" & revno & "&eqdept=" & dept & "&ki=" & ki & "', 'popup_window', 'width=1450,height=700,left=10,top=10,resizable=no');"
ClientScript.RegisterStartupScript(Me.GetType(), "script", s, True)
BindGrid1()
ElseIf (e.CommandName = "viewstatus") Then
Dim eqstatus As String = gv_admin.DataKeys(index).Values(3).ToString()
'Dim url As String = "MasterlistViewStatus.aspx"
'Dim s As String = "window.open('" & url & "?" & "eqstatus=" & status & "', 'popup_window', 'width=450,height=500,left=10,top=10,resizable=no');"
'ClientScript.RegisterStartupScript(Me.GetType(), "script", s, True)
liststatus(eqstatus)
mpstatus.Show()
BindGrid1()
End If
End Sub
The error --> Dim row As GridViewRow = gv_admin.Rows(index)