How to get columns name from XBROWSE *Done*

[dutch]

Dear All,

I use FWH1512/xHarbour/TDolphin.
I need to use TXbrowse:cSetOrder to set autosort (ASC or DESC) but I don't understand how to use it. I need global set for all columns in XBROWSE but I cannot get columns for resorting columns.

Code: Select all  Expand view

oBrw:SetDolphin( oBrw:oMySql )
    for n := 1 to len(oBrw:aCols)
         oBrw:aCols[n]:bLClickHeader = { | nMRow, nMCol, nFlags, Self | SqlOrder( oBrw:oMySql, oBrw:aCols[n]:xxxxxxx ) }   // xxxxx is columns name    
    next
...

*-----------------------------*
Function SqlOrder(oDbf,cOrder)
local cSetOrder := cOrder
if lower(cOrder) $ oDbf:cOrder
    if 'DESC' $ lower(oDbf:cOrder)
        cSetOrder += ' ASC'
    else
        cSetOrder += ' DESC'
    end
end
oDbf:SetOrder( cSetOrder, .T. )
return nil
 

Thank you in advance for any ideas or help.

[FranciscoA]

ducht.
Using MySql I do this:

Code: Select all  Expand view

     For n := 1 to len(oBrw:aCols)
        oBrw:aCols[n]:bLClickHeader = { | nRow, nCol, nF, o | MsgInfo( o:cHeader ) }
      Next
 

Regards

[dutch]

Dear Francisco,

Thank you for your help.
The first columns, it shows "Room" but I need "RMS_RMNO" instead for sorting columns 1.

Code: Select all  Expand view

 REDEFINE XBROWSE oBrow FIELDS RMS:RMS_RMNO, RMS:RMT_DESC, trans(RMS:RMS_BEDS,'@Z 99'), RMS:RMS_VIEW ;
           HEADERS 'Room', 'Description','Bed','View' ;
           FIELDSIZES 45, 150, 30, 150 ;
           JUSTIFY 0, 0, 2, 0 ;
           DATASOURCE RMS ;
           AUTOSORT ;
           UPDATE ;
           ID 101 ;
           OF oDlg ;
           ON DBLCLICK (EditRms(.F.,oDlg,RMS), oBrow:Refresh(), oBrow:SetFocus())

    oBrow:aCols[1]:bLClickHeader := { | nMRow, nMCol, nFlags, o | MsgInfo( o:cHeader ) }

ducht.
Using MySql I do this:

Code: Select all  Expand view

     For n := 1 to len(oBrw:aCols)
        oBrw:aCols[n]:bLClickHeader = { | nRow, nCol, nF, o | MsgInfo( o:cHeader ) }
      Next
 

Regards

[Maurizio]

Have you tried oCol:cExpr ?

Maurizio
www.nipeservice.com

[nageswaragunupudi]

Mr Dutch

Sorting of columns with Dolphin is AUTOMATIC.
Just add the clause AUTOSORT while defining XBrowse.
You will get good results with xbrowse as long as you do not add any code for sorting.
While defining xbrowse, use columns clause and not fields clause.

[dutch]

Dear Mr.Rao,

I try to add AUTOSORT, how can I change the sorting. I try to ::bLClickHeader but nothing change. Have you got an example to use AUTOSORT action ?

Thank you in advance.

Mr Dutch

Sorting of columns with Dolphin is AUTOMATIC.
Just add the clause AUTOSORT while defining XBrowse.
You will get good results with xbrowse as long as you do not add any code for sorting.
While defining xbrowse, use columns clause and not fields clause.

[nageswaragunupudi]

Please let me see your xbrowse statement.

[dutch]

Dear Mr.Rao,

The statement is above.

Please let me see your xbrowse statement.

[nageswaragunupudi]

I am very sorry I did not notice

Recommended code:

Code: Select all  Expand view

REDEFINE XBROWSE oBrow ;
           COLUMNS "RMS_RMNO", "RMS_DESC", "RMS_BEDS", "RMS_VIEW" ;
           PICTURES nil, nil, "99" ;
           HEADERS 'Room', 'Description','Bed','View' ;
           FIELDSIZES 45, 150, 30, 150 ; // JUSTIFY 0, 0, 2, 0 ; numbers are automatically right justified
           DATASOURCE RMS ;
           AUTOSORT ;
           UPDATE ;
           ID 101 ;
           OF oDlg ;
           ON DBLCLICK (EditRms(.F.,oDlg,RMS), oBrow:Refresh(), oBrow:SetFocus())
 

[dutch]

Dear Mr.Rao,

Thank you so much, it works great as expectation.