hi,
i try as..

= CURSORSETPROP('Buffering', 5, 'yourtable' ) 
SCAN FOR ID<>"101-1" and CODE<>101 
  delete  
ENDSCAN
  TABLEUPDATE(1, .t.,[table1])
brow

>i have new and old both records in buffer.
>
>can i do like this
>
>

>SELECT YourTable
>SCAN for code=101
>   if recno()<0  && buffered new records
>      IF Id == [101-1]
>         IF TABLEUPDATE(0,.t.,[YourTable])
>            ***
>         ENDIF
>      ELSE
>         TableRevert(.f.,[YourTable])
>      ENDIF
>   else && buffered old records
>      IF Id == [101-1]
>         IF TABLEUPDATE(0,.t.,[YourTable])
>            ***
>         ENDIF
>      ELSE
>         delete
>         IF TABLEUPDATE(0,.t.,[YourTable])
>            ***
>         ENDIF
>      ENDIF
>   endif
>ENDSCAN
>

>
>
>warm regards,
>mk.