Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Multi-User Grids.
Message
De
13/12/1999 15:41:41
 
 
À
13/12/1999 15:33:53
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00302917
Message ID:
00302932
Vues:
24
Here's my load event. With private data session.

SET TALK OFF
SET REFRESH TO 0
SET REPROCESS TO 1
SET SAFETY OFF
SET EXCLUSIVE OFF
SET EXACT ON
SET DELETED ON
SET MULTILOCKS ON
SET STATUS BAR OFF
SET ESCAPE ON
SET CENTURY ON
ON ESCAPE


DIME thisform.r_openfile(3,2)
*!* opened files
STORE "child1" TO thisform.r_openfile(1,1)
STORE "child2" TO thisform.r_openfile(2,1)
STORE "parent1" TO thisform.r_openfile(3,1)

*!* defaulted order
STORE "key" TO thisform.r_openfile(1,2)
STORE "key" TO thisform.r_openfile(2,2)
STORE "key" TO thisform.r_openfile(3,2)


USE parent1 ORDER key IN 0 SHARE
USE child1 ORDER key IN 0 SHARE
USE child2 ORDER key IN 0 SHARE
USE rcount IN 0 SHARE


=CURSORSETPROP("BUFFERING",5,"PARENT1")
=CURSORSETPROP("BUFFERING",5,"CHILD1")
=CURSORSETPROP("BUFFERING",5,"CHILD2")
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform