Silvio.Falconi wrote:Nages,
I Wish no erase the First row of array
ASize( oBrw:aArrayData, 1 )
oBrw:MakeTotals()
oBrw:Refresh()
//---------------------------//
function Borrando(aArray,oBrw)
local n
oBrw:nArrayAt := 2
For n := 2 to oBrw:nLen
ADel( aArray, oBrw:nArrayAt, .f. )
ASize(aArray,1)
oBrw:Refresh()
Next
Return nil
ASize( oBrw:aArrayData, 0 )
oBrw:MakeTotals()
oBrw:Refresh()
do while oBrw:nLen > 0
oBrw:Delete()
enddo
ASize( oBrw:aArrayData, 0 )
oBrw:MakeTotals()
oBrw:Refresh()
do while oBrw:nLen > 0
oBrw:Delete()
enddo