Ordenar una tabla ascendente y descendentemente

[santidedos]

Buenos días compañeros,
Tengo una tabla a la que quiero ordenar a veces ascendentemente, y otras veces descendentemente. En la consulta principal ordeno la tabla descendentemente con DESC, pero mas abajo en el código quiero invertir el orden con ASC y no se invierte. Uso la funcion SetOrder(). Gracias de antemano!

[Armando]

Santidedos:

Por favor especifica, DBF o Tabla SQL?

Saludos

[santidedos]

Es SQL

[Armando]

Amigo:

Debes ordenar el record set así:

oRsGas:SORT := "GAS_USU,GAS_GAS ASC" // o DESC
oRsGas:MoveFirst()

Saludos

[santidedos]

Gracias, pero no me anda. Me toma siempre el orden que establezco en la consulta principal.

[Armando]

Amigo:

Obviamente debe ser después de que hayas abierto el record set, sería mejor
si muestras tu código.

Saludos

[santidedos]

Qué es el record set?

Esta es la consulta en la función principal:

cQuery := 'select * from reporte where mes_fantasma = ' + Str( nMes ) + ' order by fecha DESC'

oQry := o : oRep : RowSet( cQuery )


En las funciones siguientes es donde quiero invertir el orden, de DESC a ASC

[Armando]

Amigo:

cQuery := 'select * from reporte where mes_fantasma = ' + Str( nMes ) + ' order by fecha DESC'
oQry := o : oRep : RowSet( cQuery )

// Después de crear el record set (oQry)
oQry:SORT := "CAMPO1,CAMPO2,etc ASC" // o DESC
oQry:MoveFirst()

Saludos

[nageswaragunupudi]

Qué es el record set?

Esta es la consulta en la función principal:

cQuery := 'select * from reporte where mes_fantasma = ' + Str( nMes ) + ' order by fecha DESC'

oQry := o : oRep : RowSet( cQuery )


En las funciones siguientes es donde quiero invertir el orden, de DESC a ASC

Code: Select all  Expand view

oQry:Sort := "FECHA ASC"

[admsoporte]

Y después dé aplicar el método debes hacer secuencialmente
Obrw:setfocus()
Obrw:regreso()
Odlg:update ()

Enviado desde mi Redmi Note 9S mediante Tapatalk

[admsoporte]

Obrw:refresh()
Error en mi autocorrector

Enviado desde mi Redmi Note 9S mediante Tapatalk

[nageswaragunupudi]

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oCn, oRs, oDlg, oFont, oBrw

   oCn   := FW_DemoDB( 6 )
   oRs   := oCn:RowSet( "select first,city,hiredate from customer where state = 'NY' order by hiredate desc" )

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL FONT oFont

   @ 60,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE oRs AUTOCOLS CELL LINES NOBORDER

   oBrw:CreateFromCode()

   @ 20,20 BUTTON "SORT ASC" SIZE 100,35 PIXEL OF oDlg ;
      ACTION ( oRs:Sort := "HIREDATE ASC", oBrw:Refresh(), oBrw:SetFocus() )

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

   oRs:Close()
   oCn:Close()

return nil