General information
Category:
Forms & Form designer
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")
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only