Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Create and Updatable Cursor
Message
From
06/03/1998 11:52:01
 
 
To
06/03/1998 06:32:55
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00082148
Message ID:
00083032
Views:
44
I use this function...
**********************

FUNCTION EditCursor
LPARAMETERS lcCursorAlias
LOCAL lnWorkArea, lcTmpDbfNma, lcTmpCur, lnCurArea
IF Parameters()=0
lcCursorAlias = Alias()
ENDIF
lnCurArea = Select()
SELECT (lcCursorAlias)
lnWorkArea = Select(0)
IF At( ".TMP", Dbf() ) > 0
SELECT 0
lcTmpDbfName = Dbf(lcCursorAlias)
USE (lcTmpDbfName) AGAIN
ELSE
SELECT * FROM ( Dbf(lcCursorAlias) );
INTO CURSOR lcTmpCur ;
WHERE .T.
lcTmpDbfName = Dbf( "lcTmpCur" )
ENDIF
USE (lcTmpDbfName) AGAIN IN (lnWorkArea) ALIAS (lcCursorAlias)
USE
SELECT (lnCurArea)
RETURN
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform