Article ID: 158240
Article Last Modified on 12/1/2003
IF !(FILE('custfree.dbf') AND FILE('ordfree.dbf');
AND FILE('ordifree.dbf'))
CLOSE ALL
SET DEFAULT TO c:\vfp5\samples\DATA
USE customer
COPY TO custfree
USE orders
COPY TO ordfree
USE orditems
COPY TO ordifree
USE ordifree
INDEX ON order_id TAG order_id
USE ordfree
INDEX ON cust_id TAG cust_id
USE custfree
INDEX ON cust_id TAG cust_id
ENDIF
CLOSE ALL
ON KEY LABEL f2 CLEAR EVENTS
FOR i=1 TO 10
CLOSE ALL
OPEN DATABASE testdata
USE customer
SELECT 0
USE ordifree
SET ORDER TO TAG order_id
SELECT 0
USE ordfree
SET ORDER TO TAG cust_id
SET RELATION TO order_id INTO ordifree
SET SKIP TO ordifree
SELECT 0
USE custfree
SET RELATION TO cust_id INTO ordfree
SET SKIP TO ordfree,ordifree
BROW LAST FIELDS custfree.cust_id,ordfree.order_id, ;
ordifree.line_no NOWAIT TITLE 'two'
READ EVENTS
NEXT
ON KEY LABEL f2
CLOSE ALL
CLEAR ALL
Additional query words: kbdse VFoxWin
Keywords: KB158240