How to delete the selected records

Requirement: bBrowser 1.5

 

While deleting the selected records it is necessary that the notifications from the data server is suspended. Otherwise with the first record movement the selection is removed by the bBrowser. The selected records can be determined with the methods bBrowser:SelectionFirstRow() and bBrowser:SelectionNextRow().

The following code fragment demonstrates the proceeding:

LOCAL oServer   AS DBServer

LOCAL iRecNo    AS INT

 

oServer := oBrowser:Server

oServer:SuspendNotification()

 

iRecNo := oBrowser:SelectionFirstRow()

WHILE iRecNo>0

  oServer:Goto(iRecNo)

  oServer:Delete()

  iRecNo := oBrowser:SelectionNextRow()

END

 

oServer:GoTop()

oServer:ResetNotification()

oServer:Notify(NOTIFYFILECHANGE)