xBrowse - update

xBrowse - update

Postby Otto » Fri Jul 24, 2009 6:49 pm

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 )
//----------------------------------------------------------------------------//



Image
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6328
Joined: Fri Oct 07, 2005 7:07 pm

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 111 guests