Page 1 of 1
Ordenar una tabla ascendente y descendentemente
Posted:
Sun Mar 21, 2021 1:35 pm
by 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!
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Sun Mar 21, 2021 4:35 pm
by Armando
Santidedos:
Por favor especifica, DBF o Tabla SQL?
Saludos
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Sun Mar 21, 2021 5:49 pm
by santidedos
Es SQL
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Sun Mar 21, 2021 6:12 pm
by Armando
Amigo:
Debes ordenar el record set así:
oRsGas:SORT := "GAS_USU,GAS_GAS ASC" // o DESC
oRsGas:MoveFirst()
Saludos
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Sun Mar 21, 2021 6:37 pm
by santidedos
Gracias, pero no me anda. Me toma siempre el orden que establezco en la consulta principal.
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Sun Mar 21, 2021 6:43 pm
by Armando
Amigo:
Obviamente debe ser después de que hayas abierto el record set, sería mejor
si muestras tu código.
Saludos
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Sun Mar 21, 2021 8:44 pm
by 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
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Sun Mar 21, 2021 10:57 pm
by 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
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Mon Mar 22, 2021 1:45 pm
by nageswaragunupudi
santidedos wrote: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"
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Wed Mar 24, 2021 9:20 pm
by 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
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Wed Mar 24, 2021 9:22 pm
by admsoporte
Obrw:refresh()
Error en mi autocorrector
Enviado desde mi Redmi Note 9S mediante Tapatalk
Re: Ordenar una tabla ascendente y descendentemente
Posted:
Thu Mar 25, 2021 2:16 am
by 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