change the display of records in an xbrowse

[Silvio.Falconi]

I have a xbrowse as this



Now it is order by Numbersyou see at right

and I wish change the display ( position of the records)

I mean if exist a sample to SwapUp() and SwapDown() a record into xbrowse

[FranciscoA]

Maybe this can help you:

Code: Select all  Expand view  RUN

REDEFINE XBROWSE oConcepto ID 200 OF oDlg ;  
         AUTOCOLS ;
         HEADERS "CONCEPTO","VALOR" ;
         SIZES 580,120 ;
         ARRAY aConcepto ;
         CELL LINES

   WITH OBJECT oConcepto
      //Cambiando posicion de lineas en el Browse
      :bDragBegin       := { |r,c,f,o| SetDropInfo( { oConcepto:nArrayAt, oConcepto:aRow } ) }
      :bDropOver        := { |u,r,c,f| oConcepto:LButtonDown( r,c ), ;
                                       oConcepto:LButtonUp(), ;
                                       aDel( aConcepto, u[ 1 ] ), ;
                                       AIns( aConcepto, oConcepto:nArrayAt, u[ 2 ] ) }
   END
 

Regards

[Silvio.Falconi]

Francisco,
I use dbf no array
I have hard problems to converte on array and then reconverte into dbf

[Silvio.Falconi]

Francisco I tried with array
I made

Code: Select all  Expand view  RUN

aArray:= EL->( FW_DbfToArray("ELNOME,ELORDINE" ) )
 

then I tried to move the records


now I have an arrayaAray with changed position

how I can make to save it on dbf ...there is a easy method ?

[FranciscoA]

viewtopic.php?f=6&t=35168&hilit=fw_arrayToDbf&sid=f1e46cac70bd1ff3cbbae5ba5feb8828#p209254

[Silvio.Falconi]

yes of course..fw_dbftoarray -> fw_arraytodbf
but if you see the picture the records are changed the position but the second column (position) have the value not changed
if i resave to dbf then is as before

then it add record
I must save the new postion , dbzap my dbf and use FW_ArrayToDBF

but it seems to me that this operation is risky then the archive must be opened in an exclusive way to use dbzap.
I thought there was a less risky method like:
change the position and save the Norder field with the new position

For n= 1 to Len(aArray)
aArray[n][3]:=n //FIELD ELORDINE
next
SELECT EL
DbZap()
EL->( FW_ArrayToDBF( aArray, "ELNUMERO,ELNOME,ELORDINE,ELCOLORE,ELATTIVO,ELIMGLIB,ELIMGOCC,ELIMGALT,ELLOCK" ) )
EL->( DBGOTO)

It run ok but perhaps this is too risky method

[James Bott]

First you should note that there is a memory DBF. It acts just like a DBF but it is in memory. You can even index it. Search the forum for an example.

When the array (or memory DBF) is changed, then you just write that record to disk (or just that field).

Then there is no exclusive use and zapping needed.

[Silvio.Falconi]

Now run ok