home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR19
/
SNIP0693.ZIP
/
DELREC.PRG
< prev
next >
Wrap
Text File
|
1992-09-05
|
552b
|
26 lines
function delrecord( oBrowse )
local nCurRec := (cDbf)->( recno() ) // save current recno.
/* FORCE COMPLETE STABILISATION */
forcestable( oBrowse )
/* ASK FOR CONFIRM (My own function) */
if askarray( {"Yes","No "},"Remove ?","Yes" ) = 1 // 1="Yes"
/* DELETE RECORD */
(cDbf)->( dbdelete() )
/* JUMP TO NEXT RECORD */
(cDbf)->( dbgoto( nCurRec+1) ) // THIS IS THE TRICK!
/* REFRESH AGAIN COMPLETE */
oBrowse:stable := .f.
oBrowse:refreshAll()
return .t.
endif
return .f.