Mostrando total de registros de un GridView

[moNTeZIon]

Buenas.
No sé qué ocurre. Primero les muestro el código:

Código:

Private Sub frmMantenimientos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim objMantenimientos As New MantenimientosDB
    miGrid.DataSource = objMantenimientos.Lista(FiltroActual)
    miGrid.DataMember = "Mantenimientos"
    miGrid.Columns("IDMantenimiento").Visible = False
    **If miGrid.RowCount > 0 Then miGrid.CurrentCell = miGrid.Rows(0).Cells("NContrato")
End Sub

Private Sub miGrid_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles miGrid.CurrentCellChanged
    PosicionRegistro()
End Sub

Private Sub PosicionRegistro()
    If Not miGrid.CurrentCell Is Nothing Then
        Dim Pos As Integer = miGrid.CurrentCell.RowIndex
        Dim MaxPos As Integer = miGrid.Rows.Count
        lblRegistro.Text = "Registro " & Pos + 1 & " de " & MaxPos
    End If
End Sub

El problema que tengo, es que si depuro este código a partir de la línea con los dos asteriscos(**), veo que llega una primera vez al evento CurrentCellChanged, que a su vez pasa la acción a la función PosicionRegistro, y me da los valores Pos=0 y MaxPos=402. Hasta aquí perfecto. El problema es que sigo depurando paso a paso, y me entra una segunda vez en el mismo evento, pero esta vez me da los valores Pos=0 y MaxPos=1.
No comprendo por qué entra una segunda vez, y aun así, tampoco comprendo por qué la segunda vez tiene esos valores en vez de tener los mismos de hace un momento, porqué no ha cambiado nada, y de hecho, al terminar de cargar el formulario, estoy viendo un listado de 402 registros, y un label que me dice "Registro 1 de 1".
Espero que alguien me ilumine un poco porqué me he quedado pasmado con esto, y no se por donde cogerlo.
Gracias!!

[xknown]

El problema surge al cambiar la fuente de datos, lo que puedes hacer es eliminar momentáneamente el manejador del evento CurrentCellChanged o usar alguna bandera que te indique que todavía no se cargaron los datos. Un ejemplo del primero es:

Código:

Private Sub frmMantenimientos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    RemoveHandler miGrid.CurrentCellChanged, AddressOf miGrid_CurrentCellChanged
    Dim objMantenimientos As New MantenimientosDB
    miGrid.DataSource = objMantenimientos.Lista(FiltroActual)
    miGrid.DataMember = "Mantenimientos"
    miGrid.Columns("IDMantenimiento").Visible = False
    AddHandler miGrid.CurrentCellChanged, AddressOf miGrid_CurrentCellChanged

    **If miGrid.RowCount > 0 Then miGrid.CurrentCell = miGrid.Rows(0).Cells("NContrato")
End Sub

Saludos

[moNTeZIon]

Buenas.
xknown, como ya sabes, no solucioné el problema ni a través de la bandera, ni quitándole el manejador del evento y volviéndoselo a poner, como propones.
Agrego que está probado en otra máquina y ocurre lo mismo.
Y agrego, muy importante, lo siguiente:
El último IF lo sustituyo por esto:

Código:

If miGrid.RowCount > 0 Then
    miGrid.CurrentCell = miGrid.Rows(1).Cells("NContrato")
    miGrid.CurrentCell = miGrid.Rows(0).Cells("NContrato")
End If

Y el resultado sigue siendo un grid de 402 filas, y un mensaje que muestra "Registro 1 de 1".
Pero en cambio, invierto las dos líneas del IF:

Código:

If miGrid.RowCount > 0 Then
    miGrid.CurrentCell = miGrid.Rows(0).Cells("NContrato")
    miGrid.CurrentCell = miGrid.Rows(1).Cells("NContrato")
End If

Y ahora el resultado son las 402 filas, pero esta vez el mensaje es "Registro 2 de 402".

Alguien tiene alguna idea de qué "narices" pasa aquí?

O sea, la cosa me funciona en el momento que realizo algún movimiento sobre el Grid. Entonces me empeño en provocar ese movimiento por código, al final del Page_Load y me encuentro con la sorpresa de que si lo posiciono en la segunda fila todo va bien, pero si luego lo vuelvo a posicionar en la primera fila me muestra "Registro 1 de 1". Una vez cargado, puedo moverme por el grid y no hay problemas. Solo tengo el problema de ese primer momento.
En fin, agradezco a quien pueda ayudarme con esto!
Un saludo!