ENTER EN VEZ DE TAB
Publicado: Lun Jun 04, 2007 4:48 am
Como puedo hacer para que en vez de que se pase al siguiente cuadro de texto
con tab se pase con enter
en un cuadro de texto uso lo giguente
METHOD cuentaChar( oSender, nKey, nFlags ) CLASS cuentas_plazos
IF Nkey=13 .or. Nkey=9
::DBF:Ordsetfocus("nombre")
SEEK ::cuenta:value
if found()
msginfo("El nombre de la cuenta ya existe")
return .f.
endif
::meses:lEnabled=.t.
::interes:lEnabled=.t.
::meses:setfocus() &&& de esta forma me posiciono en el siguiente
cuadro de texto
return .f.
endif
RETURN Nil
Pero no quiero estar haciendo todo esto en cada cuadro de texto.
Gracias por toda ayuda.
Desde Cuernavaca Mor., México
con tab se pase con enter
en un cuadro de texto uso lo giguente
METHOD cuentaChar( oSender, nKey, nFlags ) CLASS cuentas_plazos
IF Nkey=13 .or. Nkey=9
::DBF:Ordsetfocus("nombre")
SEEK ::cuenta:value
if found()
msginfo("El nombre de la cuenta ya existe")
return .f.
endif
::meses:lEnabled=.t.
::interes:lEnabled=.t.
::meses:setfocus() &&& de esta forma me posiciono en el siguiente
cuadro de texto
return .f.
endif
RETURN Nil
Pero no quiero estar haciendo todo esto en cada cuadro de texto.
Gracias por toda ayuda.
Desde Cuernavaca Mor., México