xbrowse sort

[damianodec]

Hallo,
I can't put in order a table in XBROWSE

oDbf := CREATEOBJECT( "ADODB.Recordset" )
cQuery := ( "SELECT ....
oDbf:Open( cQuery , ....
oDbf:MoveFirst()
...
...
REDEFINE XBROWSE oBrw DATASOURCE odbf ;
COLUMNS "CODICE", "DESCRIZIONE","UM", "SALDO", "ORDINI" ;
COLSIZES 95, 330, 25, 80,70 ;
HEADERS "Codice", "Descrizione", "um", "Saldo", "Ordini" ;
PICTURE ,,,"@ZE 999,999.999","@ZE 999,999.999" ;
ID 200 OF oDlg ;
SORT "SALDO"

but the output is in "CODICE" ascend,
why?

[Rick Lipkin]

damianodec

When you create your query .. add the Order By clause to your recordset

Code: Select all  Expand view

cQuery := ( "SELECT .... Order by [Codice] DESC" )
 

Hope that helps

Rick Lipkin

[James Bott]

Or this:

Code: Select all  Expand view

cQuery := ( "SELECT .... Order by [SALDO]" )

[damianodec]

Saldo is calculate Field: Select... T0.totd - t0.tota as SALDO, if I put ORDER BY SALDO I get error...

Sent from lumia 720 Tapatalk

[Marcelo Via Giglio]

Code: Select all  Expand view

cQuery := ( "SELECT .... Order by T0.totd - t0.tota DESC " )

[damianodec]

ok,
and if I have this query whit subquery...

Select fieldA as A, fieldB as B, (Select SUM(fieldC) from tableB) as fieldZ
from tableA

and I want order by fieldZ ?

[James Bott]

I don't know if this will work, but try sorting the recordset after the query. This sorts the recordset after it is retrieved from the server.

Code: Select all  Expand view

oDbf:CREATEOBJECT("ADODB.Recordset")
oDdf:CursorLocation := 3   // client-side cursor
oDbf:= ("SELECT...
oDbf:Open( cQuery, ...
oDbf:sort("SALDO")
oDbf:MoveFirst()

James

[damianodec]

thanks mr James,
very good!