Como recorrer la filas de MSHFlexgrid1?

[franko1809]

que tal seba123neo ya logre posicionar la fila con el grid al hacer el rs.movenext pero al cambiar de fila del MSHFlexgrid con el mouse el rs se matiene, es decir si estoy en la ultima fila y coloco el puntero en la 1era fila, el rs se mantiene en la ultima.
Tendria que igualar el rs a la fila del MSHFlexgrid en el evento click del grid pero no me queda claro como hacerlo, espero se entienda

Iniciado por seba123neo

...igualmente no me queda claro mucho para que seria algo asi...

A que te refieres tio, se trata de moverme entre los registros con rs.movefirst, rs.moprevious, rs.movenext, rs.movelast para hacer mas interactiva la busqueda de algun registro al menos esa es la utilidad que le veo

Código:

Private Sub cmdSig_Click()
    Dim r As Long
    rsCargo.MoveNext
    If rsCargo.EOF Then
    rsCargo.MoveLast
    Else
    For r = 1 To MSHFlexGrid1.Rows - 1
        If LCase$(MSHFlexGrid1.TextMatrix(r, 0)) = rsCargo("codcargo") Then
            With MSHFlexGrid1
                .Row = r
                .RowSel = r
                .Col = 0
                .ColSel = MSHFlexGrid1.Cols - 1
                Text2 = MSHFlexGrid1.Row
            End With
        Exit Sub
        End If
    Next r
    End If
End Sub

Avellaneda vere tu codigo

saludos