14/08/2006, 07:30
|
| | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 17 años, 9 meses Puntos: 2 | |
mmmm creo que el lo que quiere es invertir solamente la grilla no ordenarla a traves de sql ni sort, osea en una columna de 4 filas el valor de la fila 1 quede en la 4 y la 2 en la 3 y viceversa, mmm veamos algo
With Grilla1
Largo = .rows-1 'Para sacar el total de filas
For x= 1 to cint(largo/2) 'Para Recorrerlo a la mitad
VarPaso = .textmatrix(x,1) 'si queremos cambiar la 1 Columna
.textmatrix (x,1) = .textmatrix (.rows-x, 1) 'Invierte su Posicion
.textmatrix (.rows-x, 1 )= VarPaso
Next x
End With
listo ahora si quieres cambiar todos los valores tendrias que alargarla un poco mas pero con la misma ciencia ;) espero te sirva |