xbrowse SelectRow method

[Silvio.Falconi]

If I made to select all record on xbrowse

oBrw:SelectRow( 4 )

and the I wish deselect only one record

If I made oBrw:SelectRow( 0 ) it deselect all

how resolve ?

[nageswaragunupudi]

oBrw:SelectRow( 2 ) toggles selection of the current row in focus.

[nageswaragunupudi]

Or, if we want to deselect a specific row number, which is not the current row, we can do like this.

Code: Select all  Expand view

if ( nAt := AScan( oBrw:aSelected, nRecNo ) ) > 0
HB_ADel( oBrw:aSelected, nAt, .t. )
endif
oBrw:Refresh()

We do not recommend this, but this is possible.

[Silvio.Falconi]

Or, if we want to deselect a specific row number, which is not the current row, we can do like this.

Code: Select all  Expand view

if ( nAt := AScan( oBrw:aSelected, nRecNo ) ) > 0
HB_ADel( oBrw:aSelected, nAt, .t. )
endif
oBrw:Refresh()

We do not recommend this, but this is possible.

Nages,

using this function

Code: Select all  Expand view

Function DeSelect_One(oBrw,oDbf)
   local  nRecNo:=oDbf:recno(),nAt
   if ( nAt := AScan( oBrw:aSelected, nRecNo ) ) > 0
        HB_ADel( oBrw:aSelected, nAt, .t. )
    endif
    oBrw:Refresh()
 return nil

It seem run ok

if I select two or three records and deselect one, the menu in the buttonbar remains unchanged because I added an if control

IiF(LEN(oBrw:aSelected)==0,Btnbar(1,.....)

thanks