Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
What is wrong?
Message
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
What is wrong?
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01241327
Message ID:
01241327
Views:
76
Hi everybody,

Ok, I want to finish this problem today.

This code:
 FOR lnCount = _screen.FormCount TO 1 STEP - 1
      loForm = _screen.Forms[lnCount]  
      IF PEMSTATUS(loForm, 'QueryUnload', 5)
         IF NOT loForm.QueryUnload()
            * We can not close the form 
            llExit = .f.
            EXIT
         ELSE
            loForm.release()   
         endif  
      ELSE
          IF PEMSTATUS(loForm, 'Release', 5)              
            loForm.Release()
          ENDIF
      ENDIF    
   NEXT
Gives form is not an object on loForm = _screen.Forms[lnCount] line.

What I'm doing wrong today? I can put it in try/catch, but how can I exit gracefully?
If it's not broken, fix it until it is.


My Blog
Next
Reply
Map
View

Click here to load this message in the networking platform