EN el evento Keypress del Text1 de la columna X
#DEFINE KEY_ENTER 13
#DEFINE KEY_TAB 9
LOCAL lnRow
*-- Check if the key pressed was ENTER or TAB and if so, go to the next row
IF (nShiftAltCtrl = 0) and INLIST(nKeyCode, KEY_TAB, KEY_ENTER)
WITH this.Parent.Parent
*-- Store the current row and change the position of the cursor
lnRow = .RelativeRow
lnRecNo = RECNO()
.ActivateCell(lnRow + 1, 1)
*-- Check if the row has been changed and if not set the focus to the add button
IF lnRecNo = RECNO()
thisform.Command1.SetFocus()
ENDIF
ENDWITH
ENDIF
JM
Una vez que la tengas lista pásala para que otros se beneficien..
JM
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de HHERRERA
Enviado el: martes, 28 de octubre de 2014 5:26
Para: publice...@googlegroups.com