Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problem with CA - SelectCmd property is empty
Message
 
 
À
16/04/2003 16:03:32
Peter Wagner
Point Informática Ltda.
Limeira, Brésil
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00778588
Message ID:
00778896
Vues:
24
I have provided 2 properties lUseCursorSchema and lNoDataOnLoad. Use those instead of adding your own code for this. Also, don't change what goes where. Once you add a CA from the VCX created by my builder to the DE, Your INIT code should be:
local llReturn
do case
	case not pemstatus(This, '__VFPSetup', 5)
		This.AddProperty('__VFPSetup', 0)
	case This.__VFPSetup = 2
		This.__VFPSetup = 0
		return
endcase
llReturn = dodefault()
*** Setup code: DO NOT REMOVE

*** End of Setup code: DO NOT REMOVE
if This.__VFPSetup = 1
	This.__VFPSetup = 2
endif
return llReturn
... and your AutoOpen Should be like:
*** Setup code: DO NOT REMOVE
if not pemstatus(This, '__VFPSetup', 5)
	This.AddProperty('__VFPSetup', 1)
	This.Init()
endif
*** End of Setup code: DO NOT REMOVE
The code is structured the way it is because the order of event firing is NOT what you expect. Please read the comments at the beginning of the CABuilder.prg file for help on how to add a CA subclass from the VCX to a DE.
Mark McCasland
Midlothian, TX USA
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform