Inicio > Visual Fox Pro > Recorrer los objetos de un formulario …

Recorrer los objetos de un formulario …


Recorrer los objetos de un formulario y darle el foco la prime caja de texto que este vacía

FOR n = 1 TO Thisform.ControlCount
IF UPPER(Thisform.Controls(n).BaseClass) = “TEXTBOX”
IF EMPTY(Thisform.Controls(n).Value) THEN
Thisform.Controls(n).Setfocus()
EXIT
ENDIF
ENDIF
ENDFOR

Categorías:Visual Fox Pro
  1. brian alvarez
    25 enero 2012 a las 10:23 pm

    con el codigo anterior y una ligera modificacion podemos validar campos obligatorios de un form

    Local LNOBJECTO, LCCONTENIDO, LCNOMBRE, LCFOCO
    For LNOBJECTO = 1 To Thisform.Objects.Count
    If Thisform.Objects(LNOBJECTO).Comment=”*” &&<aqui valida el asterisco
    LCNOMBRE = Thisform.Objects(LNOBJECTO).Name
    LCNOMBRE2 = Right(Thisform.Objects(LNOBJECTO).Comment, Len(Alltrim(Thisform.Objects(LNOBJECTO).Comment))-1)
    LCCONTENIDO = "ThisForm."+LCNOMBRE+".Value"
    If Empty(&LCCONTENIDO)
    MESSAGEBOX("Es necesario llenar el campo :"+Chr(13)+LCNOMBRE2, 16, "Campo vacio")
    LCFOCO = "ThisForm."+LCNOMBRE+".SetFocus"
    &LCFOCO
    Return
    Endif
    Endif
    Endfor

    nota:para que el codigo valide unicamente aquellos objetos que son obligatorios en los comentarios que estan en propiedades debes colocar una asterisco.

  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: