Saltar a la siguiente fila de un MSFlexGrid VB 6.0
Publicado por Rubhenn (17 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.
Gracias de antemano.
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 = 0ActualizarPirdSucrsls
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 Thenpa@ = 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
0