>LPARAMETERS nRecNo >local lcRecordSource, lnSelect >lcRecordSource = This.RecordSource >if empty(lcRecordSource) > return >endif >lnSelect = select() >select (lcRecordSource) >if This.RecordSourceType < 2 > local lnRetVal > goto record nRecNo > This.Refresh() > if This.lWarning > lnRetVal = MsgSrvr("Please confirm. Delete record?") > if lnRetVal <> IDYES > NoDefault > return 0 > endif > endif > delete next 1 > skip -1 > if bof() > locate > endif > This.Refresh() >endif >NoDefault >select (lnSelect) >Return