Hi,
I can use multiselect with xbrowse of recordset
*
How to go to each record select and do Something
What is the syntax ?
wac := oLbx:aSelected
for i = 1 to len (wac)
*** ???
next
Thanks for your help .
Philippe
oBrw:lScreenUpdating := .f.
oBrw:Refresh()
//
uSaveBm := oBrw:oRs:BookMark
for i := 1 to Len( oBrw:aSelected )
oBrw:oRs:BookMark := oBrw:aSelected[ i ]
// do anything with the current record of the recordset
// during this loop do not refresh browse
next
oBrw:oRs:BookMark := uSaveBm
//
oBrw:lScreenUpdating := .t.
oBrw:Refresh()
oBrw:lScreenUpdating := .f.
oBrw:Refresh()
//
uSaveBm := oBrw:oRs:BookMark
cFilter := oBrw:oRs:Filter
oBrw:oRs:Filter := oBrw:aSelected
oBrw:oRs:MoveFirst()
do while !oBrw:oRs:Eof()
// do your work
oBrw:oRs:MoveNext()
enddo
oBrw:oRs:MoveFirst()
oBrw:Filter := cFilter
oBrw:oRs:BookMark := uSaveBm
//
oBrw:lScreenUpdating := .t.
oBrw:Refresh()
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 47 guests