Como recorrer la filas de MSHFlexgrid1?

[franko1809]

Como recorrer las filas de un MSHFlexgrid desde un recordset es decir hacerle el movefirst, movelast y demas

[franko1809]

Que tal todavia no encontre un codigo para lograr moverme atravez del recordset dentro del MSHFlexgrid, alguien recordo como hacerlo o alguna pista que puedan darme.

saludos

[seba123neo]

Hola, no entendi...son 2 cosas distintas...o recorres el recordset o recorres la grilla..para recorrer el recordset con un Do until Rs.EOF y vas moviendote haciendo Rs.MoveNext...y para recorrer la grilla haces un For con las propiedades .Cols o .Rows de la grilla..

saludos.

[franko1809]

Me refiero a que el desplazamiento por el grid se visualize, con el datagrid al hacer el rs.movenext se veia el puntero del datagrid con la fila que recorria

Con el MSHFlexgrid1 no se nota que registro tiene seleccionado

[Avellaneda]

Bueno, tienes jugar con las siguientes propiedades del control MSHFlexGrid:

FocusRect = 0 - flexFocusNone
HighLight = 0 - flexHighLightAlways
SelectionMode = 1 - flexSelectionByRow

Y en las propiedades BackColorSel y ForeColorSel le pones el color de letra y de fondo.

[franko1809]

Que tal avellaneda como estas, bueno si funciono para ver la linea, pero al hacer rs.movenext no realiza el recorrido se queda en la misma linea

Tratare de jugar con las propiedades y espero solucionar

saludos

[seba123neo]

que spam el mensaje anterior...lo que pasa es que debes tener algun identificador o algo en la grilla para podes hacer lo que queres, poder se puede,por ejemplo cada vez que vas recorreindo el recordset podes ir sacando algun dato que este en la grilla y que identifique a ese registro como unico...supongamos que terminas de cargar el flexgrid y tenes estos datos:

Codigo | Nombre

1 Sebastián
2 Avellaneda
3 franko1809


primero haces un movefirst...despues cade vez que le haces un movenext, recorres la grilla y seleccionas la fila que tenga la columna de codigo igual al codigo actual del registro en el que estas actualmente recorriendo...

en un boton tendrias que tener algo asi:

Código vb:

Private Sub Command1_Click()
    Dim r As Long
    Rst.MoveNext
    For r = 1 To MSFlexGrid1.Rows - 1
        If LCase$(MSFlexGrid1.TextMatrix(r, 1)) = Rst("id") Then
            With MSFlexGrid1
                .Row = r
                .RowSel = r
                .Col = 0
                .ColSel = MSFlexGrid1.Cols - 1
            End With
        Exit Sub
        End If
    Next r
End Sub
 

ahi te selecciona la fila que tenga el ID igual al ID que estas recorriendo...es lo que se me ocurrio asi a rapidas, puede haber otra forma...igualmente no me queda claro mucho para que seria algo asi...

saludos.

[Avellaneda]

Iniciado por franko1809

Que tal avellaneda como estas, bueno si funciono para ver la linea, pero al hacer rs.movenext no realiza el recorrido se queda en la misma linea
saludos

Al mismo tiempo que mueves el puntero del recordset, cambia de fila en el Grid:

recordset.MoveNext
MSHFlexGrid1.Row = MSHFlexGrid1.Row + 1
...
recordset.MovePrevious
MSHFlexGrid1.Row = MSHFlexGrid1.Row - 1

Claro, controlando el principio y fin del fichero

[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

[seba123neo]

Iniciado por franko1809

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

para mi no tiene utilidad alguna...eso de moverte con las flechitas tontas es lo primero que te enseñan cuando aprendes a usar el DATA control o lo basico de bases de datos...despues te das cuenta que eso no sirve para nada...quiero ver al tipo que use el programa si tiene 1000 registros por decir un numero cualquiera o mas en una grilla..el tipo tiene que apretar 500 veces el boton para llegar al registro 500....asi no va eso...para encontrar datos en una grilla se hace a traves de filtros...por nombre, por codigo...por lo que sea...asi se hacen los sistemas grandes por lo menos...

saludos.

[franko1809]

tio tiene toda la razon la utilidad de eso no es mucha pero que pasa si se hace tu filtro y te arroja 20 registros quizas ahi se pueda utilizar el boton para resaltar las filas una a una, aunque tambien se podria utilizar el mouse, la utilidad es casi mula
El problema es que los sistemas antiguos tienen estos botones y si tienes que actualizarlos y agregarle un par de cosas no le voy a quitar sus tontones, perdon botones incluso alguna vez tube que revisar un programa que no tenia grillas, solo lo botones, no vuelvo a herir tu susceptibilidad, en todo caso no respondas jejeje es broma tio,en fin por ahora todavia me interesa saber como recorrer la bendita grilla

saludos