Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Severe situation on bug
Message
De
30/07/2001 01:44:48
 
 
À
30/07/2001 01:28:31
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
00537068
Message ID:
00537070
Vues:
36
Here is the simulation code. Try it on your own. You'll be amazed. Or, maybe someone knows why this is happening like that.

Basically, the facts are like this. If you run the same approach in a non class environment, it'll work. No matter if the error is from a COUNT or from a SELECT or anything else. It will always work. If you put the same code within a class environment such as the following code, you'll see that the SELECT line, if you switch the commented lines will work but the COUNT will create a problem.
loProcess=CREATE('FournierTransformation')
loProcess.ShowMessage()

DEFINE CLASS FournierTransformation AS Custom

FUNCTION ShowMessage
loProcess.ShowMessage2()
MESSAGEBOX('ShowMessage1')
ENDFUNC

FUNCTION ShowMessage2
COUNT FOR IRegion=lnRegion
*SELECT * FROM CONTACT WHERE IRegion=lnRegion INTO CURSOR TEMP
MESSAGEBOX('ShowMessage2')
ENDFUNC

FUNCTION Error
PARAMETER nError,cMethod,nLine
RETURN TO ShowMessage
ENDFUNC

ENDDEFINE
That code will show ShowMessage2 and ShowMessage1.

Comment COUNT line and uncomment SELECT line and you'll get ShowMessage1.
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform