Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Inconsistent execution
Message
De
22/03/2001 10:26:27
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Inconsistent execution
Divers
Thread ID:
00487608
Message ID:
00487608
Vues:
37
the following will run fine if i do right-click run from (after setting to
proc.. in command window), but gives "object not found error" if running the
exe.

it deletes a item from a listbox when you press the del key, the DeleteItem
holds the place where the delete code exits ( that way you can use a generic
trap for the delete key rather then XXX on key label functions to manage)

on init of listbox:
this.addProperty("DeleteItem", thisform.name + ".DelAccessg") && ok

on when of same listbox:
on key label DEL do DelItemlist && seems ok, calls the function

in proc file:
procedure delitemlist
PUSH KEY CLEAR
if PEMSTATUS(Application.ActiveForm.ActiveControl, "DeleteItem", 5)
*5 is 'does it exist?'. make it through here
private cStmt
cStmt = Application.ActiveForm.ActiveControl.DeleteItem
&cStmt && <----------------------------------- error occurs here
endif
POP KEY
endproc

thanks
- jer
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform