Movelast en un objeto recordset - vb6.0

[franko1809]

Tengo un matriz de controles para buscar registros de esta manera

Private Sub cmdSubmenu_Click(Index As Integer)
Select Case Index
Case 0 'Primero
rsCargo.MoveFirst
Case 1 'Siguiente
rsCargo.MovePrevious
If rsCargo.BOF Then rsCargo.MoveFirst
Case 2 'Anterior
rsCargo.MoveNext
If rsCargo.EOF Then rsCargo.MoveLast
Case 3 'Ultimo
rsCargo.MoveLast
End Select
End Sub

El problema es que al pulsar cualquiera de los 4 botones la grilla se visualiza de esta manera
http://img.tomatone.net/big/0011241.JPG pero yo quiero que se visualize de esta forma
http://img.tomatone.net/big/0011242.JPG
Que propiedad o que codigo necesito para lograrlo

saludos

[Avellaneda]

Bueno, eso es una propiedad del control DataGrid que no está disponible en diseño, así que lo tendrás que poner en ejecución al cargar el DataGrid

DataGrid1.MarqueeStyle = dbgHighlightRow

[franko1809]

Gracias por responder Avellaneda, disculpa que insista y ahonde mas en la pregunta coloque la propiedad MarqueeStyle al cargar el formulario pero presenta un problema, al ejecutarse las lineas de color rojo

Case 1 'Siguiente
rsCargo.MovePrevious
If rsCargo.BOF Then rsCargo.MoveFirst
Case 2 'Anterior
rsCargo.MoveNext
If rsCargo.EOF Then rsCargo.MoveLast
No se si me expreso bien pero se pierde el enfoque del datagrid y solo se vuelve a activar al selecionar una fila y pulsando las teclas arriba o abajo

saludos

[Avellaneda]

Al salir del "Select" dale el foco al Grid:

Código:

...
End Select
DataGrid.SetFocus

Por cierto, veo que lo tienes al revés (Pasar al siguiente registro es MoveNext y al anterior, MovePrevious)

[franko1809]

Me exprese mal, el problema no es la perdida del enfoque que se soluciona con el .setfocus me explico mejor.Por ejemplo al llegar a la ultima fila del datagrid se
muestra de esta manera
http://img.tomatone.net/big/0011232.jpg
al estar en la ultima fila y precionar el boton siguiente se ejecuta esta linea de codigo
rsCargo.MoveNext
If rsCargo.EOF Then rsCargo.MoveLast
Y el datagrid se muestra de esta manera
http://img.tomatone.net/big/0011244.jpg
Es decir pierde el valor de la propiedad MarqueeStyle intente hacer esto
rsCargo.MoveNext
If rsCargo.EOF Then rsCargo.MoveLast
DataGrid1.MarqueeStyle = dbgHighlightRow
tambien colocando la linea despues del end select y nada la unica forma de volver a activar la propiedad MarqueeStyle es haciendo click en una fila del datagrid y precionado una tecla que puede ser arriba o abajo, creo que tiene algon que ver con los eventos lostfocus, rowcolchange,keydown,keyup pero no se como hacerlo

espero me puedas ayudar estare esperando tu respuesta y espero no ser muy pesado al hacer este tipo de pregunta

saludos

[Avellaneda]

Bueno, lo primero que tienes que tener en cuenta es que la propiedad EOF es verdadero cuando el registro activo es el siguiente al último del recordset y la instrucción MoveLast lo manda al último, por lo tanto EOF es False. Igual para BOF (anterior al primero).

Debes jugar con la propiedad AbsolutePosition del recordset que dá de valor 1 en el primer registro y RecordCount en el último, activando o desactivando los botones de posición.

Para que funcione tu código, podrías poner algo así:

Código:

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0  ' ir al primer registro
     rs.MoveFirst
Case 1  ' ir al siguiente
    rs.MoveNext
Case 2  ' ir al anterior
   rs.MovePrevious
Case 3  ' ir al último
    rs.MoveLast
End Select
Command1(1).Enabled = IIf(rs.AbsolutePosition = rs.RecordCount, False, True)
Command1(3).Enabled = IIf(rs.AbsolutePosition = rs.RecordCount, False, True)
Command1(0).Enabled = IIf(rs.AbsolutePosition = 1, False, True)
Command1(2).Enabled = IIf(rs.AbsolutePosition = 1, False, True)
End Sub

Por supuesto que tanto en el Command1(0) como el (2), la propiedad Enabled al cargar debe de estar a False (lo puedes hacer en el Load o en diseño)

Espero que así te funcione.

[franko1809]

Excelente respuesta acertada aunque el foco del marqueestyle se pierde al clickear otros botones como añadir, eliminar en fin para cerrar el tema, es posible declarar un control datagrid de solo lectura ya que solo utilizo los eventos click y dobleclick de las fila y si por error se cambia algun dato se generan errores.
Gracias por el interes

saludos