XBrowse y AUTOSORT

XBrowse y AUTOSORT

Postby jfafive » Fri Sep 05, 2008 8:10 am

Hola,

Tengo el sigguiente codigo y no consigo que funcione el autosort, para ordenar las columnas:

Code: Select all  Expand view  RUN
REDEFINE XBROWSE oBrw ID ID_BRWCON OF oDlg ;
       ALIAS "REGISTRO" AUTOSORT ;
       HEADERS "Nombe Descriptivo",;
               "Fichero",;
               OemToAnsi( "Descripci¢n" ) ;
       FIELDS REGISTRO->NOMBRE_DES,;
              REGISTRO->FICHERO,;
              REGISTRO->DESCRIPCIO ;
   
       COLSIZES 100,100,500
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Solución

Postby jfafive » Fri Sep 05, 2008 8:13 am

La solución pasa por añadir la clausula sort, tal y como sigue:

REDEFINE XBROWSE oBrw ID ID_BRWCON OF oDlg ;
ALIAS "REGISTRO" AUTOSORT ;
HEADERS "Nombe Descriptivo",;
"Fichero",;
OemToAnsi( "Descripci¢n" ) ;
FIELDS REGISTRO->NOMBRE_DES,;
REGISTRO->FICHERO,;
REGISTRO->DESCRIPCIO ;
SORT "IND_NOM", "IND_FIC" ;
COLSIZES 100,100,500
Code: Select all  Expand view  RUN

Tambien hay que tener la base de datos indexada por los campos que vamos a incluir en el orden.

Un saludo.
:wink:
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella


Return to FiveWin para Harbour/xHarbour

Who is online

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