En un datagrid, al finalizar la edicion de una fila me pase a otra fila determinada

[krakxp]

Hola comunidad aki esta la solucion para el problema ke tenia, y bueno asi lo resolvi, si alguine tien alguna observacion a mi codigo porfavor diganmelo:

Código:

'Procedimiento del Grid para Actualizar los datos de las variables 
    Public Sub Grd_Update(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
        If Page.IsValid Then
            Dim sNomCrt, sNomLrg, iCveVar As String
            Dim iUniMed As Integer
            Dim bGuaVar As Boolean
            Dim TxtNomCrt, TxtNomLrg As TextBox             'Nombre Corto y Largo de la Variable
            Dim cUniMed As DropDownList                     'Unidad de Medida
            Dim lblCrt, lblLrg As Label


            iCveVar = GrdVar.DataKeys(CInt(E.Item.ItemIndex))
            bGuaVar = False

            TxtNomCrt = E.Item.FindControl("edit_NomCrt")
            sNomCrt = Trim("" & TxtNomCrt.Text)

            TxtNomLrg = E.Item.FindControl("edit_NomLrg")
            sNomLrg = Trim("" & TxtNomLrg.Text)

            cUniMed = E.Item.FindControl("edit_UniMed")
            iUniMed = Val(0 & cUniMed.SelectedItem.Value)


            If Not (sNomCrt.Equals("") Or sNomLrg.Equals("")) Then
                bGuaVar = Buss.GuardarVar(iCveVar, sNomCrt, sNomLrg, iUniMed)
                If bGuaVar = True Then
                    'Obtiene las variables insertadas para el indicador
                    Dim DVVariables As DataView
                    Dim banderror As Boolean
                    Dim i, numVar, CveEntVar As Integer
                    DVVariables = Buss.GetVariables(CveInd)
                    If IsNothing(DVVariables) Then
                        Response.Redirect("WebError.aspx?iErr=GetVariables")
                    ElseIf DVVariables.Table.Rows.Count <= 0 Then
                        Response.Redirect("WebError.aspx?iErr=GetVariablesND")
                    Else
                        Dim item As DataGridItem
                        Dim cellCvePer, cellNomCrt, cellNomLar As TableCell
                        Dim iCvePer As Integer
                        Dim bActPer As Boolean

                        For Each item In GrdVar.Items
                            If Not item.ItemIndex = GrdVar.EditItemIndex Then
                                cellCvePer = item.Cells(0)
                                iCvePer = CInt(cellCvePer.Text)
                                lblCrt = item.FindControl("LblCrt")
                                sNomCrt = lblCrt.Text.Trim()
                                lblLrg = item.FindControl("LblLrg")
                                sNomLrg = lblLrg.Text.Trim()

                                If sNomCrt.Equals("") Or sNomLrg.Equals("") Then
                                    GrdVar.EditItemIndex = item.ItemIndex
                                    Exit For
                                End If
                            End If
                        Next
                        GrdVar.EditItemIndex = -1
                        BindGrid()
                    End If
                Else
                    Response.Redirect("WebError.aspx?iErr=GuardarVar")
                End If
            End If
        End If
    End Sub