Bugs!!!

form::CheckforFilledvalues

lparameters tcBaseClass, toRef
local loRef, llReturn
assert not empty(tcBaseClass)
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

>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