Information générale
Catégorie:
Gestionnaire d'écran & Écrans
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
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement