Hi James,
Those are good suggestions. I haven't started using multiple databases in an app yet, so I didn't even notice that bug.
<i><font color="#663300">*/////////////////*
(42) IF USED( lcAlias)
LOCAL lcTree, lnTree
FOR lnTree = 1 TO 30
lcTree= "ProgTree_"+ALLTRIM( TRANSFORM( lnTree, "@Z 99"))
STORE sys( 16, lnTree) TO &lcTree
IF EMPTY( sys( 16, lnTree))
exit
ENDIF
ENDFOR
*////////////////*</font></i>
Or, in VFP you could use PROGRAM()
FOR lnTree = 1 TO PROGRAM(-1)
lcTree = "ProgTree_"+ TRANSFORM(lnTree)
STORE PROGRAM(lnTree) TO &lcTree
ENDFOR
Or, in VFP 7 you could use ASTACKINFO()
ASTACKINFO(laTree)
:-) Pamela
pamela /at/ eagle-crest .D.O.T com
©2001 Pamela Thalacker |
