Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
What is wrong?
Message
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
What is wrong?
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01241327
Message ID:
01241327
Vues:
78
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform