Hi again....
I have some legacy code here in Foxpro 2.6.... and basically what we have is a screenset of 4 screens.
We had to increase it to 6 screens, but we hit the "PROGRAM TOO LARGE" error when compiling now (it is tooooo large to compile).
So, I broke the screenset up into 6 screens, and tried to call them when necessary, calling up the first one, then trying to RELEASE the screen, and bringing up another screen (like 3, 5, etc) when called.
But the screens will not release the READ in effect. They continue to go increase until I exceed the 5 READ limit.
So, any ideas of how I can get the READS to RELEASE between the screens??
Here is some sample code called when jumping from screen to screen...
*********************************************************************
*-----------------------------------------------------------------
* Activate the next window.
*-----------------------------------------------------------------
FUNCTION PageNext
CLEAR READ
DO CASE
CASE WONTOP() = "QUAL01A"
DO qual01b.spr
CASE WONTOP() = "QUAL01B"
DO qual01c.spr
CASE WONTOP() = "QUAL01C"
DO qual01d.spr
CASE WONTOP() = "QUAL01D"
DO qual01e.spr
CASE WONTOP() = "QUAL01E"
DO qual01f.spr
ENDCASE
RETURN(.T.)
*********************************************************************
Thanks....
Tommy
Tommy Tillman A+ NetWork+ MCP