Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Object List
Message
De
22/06/2001 10:06:35
 
 
À
22/06/2001 07:53:14
Jimi Lee
Pop Electronic Products Ltd.
Hong Kong, Hong Kong
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
00522334
Message ID:
00522418
Vues:
9
I believe this is a runtime situation, which could be handled with the following.
form::CheckforFilledvalues

lparameters tcBaseClass, toRef
local loRef
assert not empty(lcBaseClass)
if empty(toRef)
    toRef = thisform
endif
llReturn = .t.
for each loRef in toRef
    if vartype(loRef.controlcount) = 'N'
    	llReturn = thisform.TestAllvalues( lcBaseClass,loRef)
    	if not llReturn
    		return llReturn
    	ENDIF
    else
        if vartype(loRef.value) <> 'U' and ;
           vartype(loRef.value) <> 'L' and ;
           loRef.BaseClass = proper(alltrim(tcBaseClass))
            if empty(loRef.value)
                return .f.
            endif
        endif
    endif
endfor
return llReturn
>Hello everyone,
>
>It's me again :p
>
>How can I get a list of object in a form? To be more specfic, I want to examine
>whether the user have filled in all the textbox or not when he click the submit
>button.
>I want to have a list of textboxes and then check them on by one.
>
>Thanks a lot!
>Jimi
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform