FiveTech Support Forums

Hello Daniel,
would you be so kind to show me how to update the xbrowse in my special case.

I select some rows and press the button to start the function: Backuploeschen(oBrw)

But I don’t find an easy way to update the xbrowse. The code below is working but a 2. array seems a little time-consuming.

FUNCTION Backuploeschen(oBrw)
local I := 0
local aTemp := {}
local nreturn := 0

For I := 1 to len(aTageSort)
aadd( aTemp, { aTageSort[ I ][ 1 ] ,;
aTageSort[ I ][ 2 ],;
aTageSort[ I ][ 3 ],;
aTageSort[ I ][ 4 ],;
aTageSort[ I ][ 5 ],;
aTageSort[ I ][ 6 ] } )
next

for I := 1 to Len( aTemp )
if aTemp[ I,1 ] = .t.
// DELETEDIR( Setup():cWHBackup + '\' + aTemp[ I ][ 4 ] )

nreturn := ASCAN( aTageSort, { |a,b,c,d,e,x| x == aTemp[ I ][ 6 ] } )
ADel( aTageSort, nreturn )
ASize( aTageSort, Len( aTageSort ) - 1 )
oBrw:Refresh()
oBrw:GoTop()
oBrw:Refresh()
endif
next


msginfo("Verzeichnisse gelöscht")

RETURN( NIL )
//----------------------------------------------------------------------------//