Visual Basic - Saltar a la siguiente fila de un MSFlexGrid VB 6.0

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Rubhenn

Saltar a la siguiente fila de un MSFlexGrid VB 6.0

Publicado por Rubhenn (16 intervenciones) el 01/07/2015 20:55:05
Que tal, nuevamente aquí con otra duda.

Resulta que estoy cargando un MSFlexGrid mediante una consulta de SQL la cual me arroja un campo llamado Precio que de manera predeterminada va en 0 (cero). Cuando selecciono cualquiera de las filas que tengo y al dar enter me pone el foco en una caja de texto para poder modificar dicho campo, hasta aqui todo bien. El problema esta en que al dar enter de nuevo después de modificar el precio y dar enter de nuevo en vez de saltarme a la fila siguiente en el MSFlexGrid me manda a la 3ra. fila del mismo.

Les comparto el código del evento KeyPress y Change del TextBox para que me den una ayuda y saber que me falta agregar.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub txtPrecio_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
 
    ActualizarPirdSucrsls
 
         If grdPiramide.Row <= grdPiramide.Rows - 2 Then
                grdPiramide.Row = grdPiramide.Row + 1
                grdPiramide_SelChange
                Enfocar
        End If
    Else
        KeyAscii = BloqMony(KeyAscii)
    End If
 
    grdPiramide.ColSel = grdPiramide.Cols - 1
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub txtPrecio_Change()
 
    R = grdPiramide.Row
    If R > 0 Then
        pa@ = Val(Format(txtPrecio.Text, "###0.00"))
        'txtPrecio.Text = Format(pa@, "#,##0.00")
        'grdPiramide.TextMatrix(R, 3) = txtPrecio.Text
        grdPiramide.TextMatrix(R, 3) = Format(pa@, "#,##0.00")
 
        RRel = Val(grdPiramide.TextMatrix(R, 3))
 
        grdPiramide.ColSel = grdPiramide.Cols - 1
    End If
 
End Sub

Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder