General information
Category:
Coding, syntax & commands
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
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