topic-8244

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

Problema con TXBRowse y Array
Posted: Thu Sep 20, 2007 08:42 PM

Hola Foro:

Tengo un problema grave y no se como solucionarlo.

Estoy usando txbrowse con array, y utilizo la instruccion

Code: Select all Collapse

oBrw:SetArray( aDatos, .T. )

Para asignar el array. Hasta aqui todo bien, el problema es que siempre al entrar ordena por la primera columna.

Como lo puedo hacer para que ordene por otra columna distinta a la primera , pero desde codigo.

Si presiono los encabezados, ordena bien, pero necesito que se ordene por una columna, sin tener que presionar el encabezado.

Alguien sabe como hacerlo ?? Alguna ayudita porfis !!

Saludos

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Problema con TXBRowse y Array
Posted: Fri Sep 21, 2007 07:41 AM

En principio parece que no se puede hacer via código. La funcion que se encarga de ordenar el array, es una funcion statica interna a la clase, con lo que no puedes llamarla desde fuera.
Yo veo dos posibles soluciones, una crear un metodo para poder ordenar, y otra añadir un parametro a setarray para poder especificar por que columna ordenar.

Aunque ambas dos no son compicadas de implementar, la segunda se trataria de modificar solo dos lineas del metodo SetArray.

Code: Select all Collapse

METHOD SetArray( aData, lAutoOrder, nColOrder ) CLASS TXBrowse

Aqui añadimos el parametro nColOrder

Localiza la linea donde se ejecuta SortArray, y cambia el if anterior (if nFor == 1) por el siguiente.

Code: Select all Collapse

if nFor == IF(nColOrder!=NIL,nColOrder,1)

Este codigo no lo he probado, pero creo que debe de funcionar para lo que tu quieres. Llamas al metodo SetArray igual que antes, mas un tercer parametro opcional donde le especificas la columna por la que quieres ordenar.

Code: Select all Collapse