FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour How to get columns name from XBROWSE *Done*
dutch
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
How to get columns name from XBROWSE *Done*
Posted: Thu Jun 30, 2016 02:03 AM
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 (fw): Select all Collapse
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.
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: How to get columns name from XBROWSE
Posted: Thu Jun 30, 2016 03:25 AM
ducht.
Using MySql I do this:
Code (fw): Select all Collapse
      For n := 1 to len(oBrw:aCols)
        oBrw:aCols[n]:bLClickHeader = { | nRow, nCol, nF, o | MsgInfo( o:cHeader ) } 
      Next
Regards
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
dutch
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: How to get columns name from XBROWSE
Posted: Thu Jun 30, 2016 04:44 AM
Dear Francisco,

Thank you for your help.
The first columns, it shows "Room" but I need "RMS_RMNO" instead for sorting columns 1.
Code (fw): Select all Collapse
  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 ) }

FranciscoA wrote:ducht.
Using MySql I do this:
Code (fw): Select all Collapse
      For n := 1 to len(oBrw:aCols)
        oBrw:aCols[n]:bLClickHeader = { | nRow, nCol, nF, o | MsgInfo( o:cHeader ) } 
      Next
Regards
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
Maurizio
Posts: 842
Joined: Mon Oct 10, 2005 01:29 PM
Re: How to get columns name from XBROWSE
Posted: Thu Jun 30, 2016 07:33 AM

Have you tried oCol:cExpr ?

Maurizio

www.nipeservice.com

Maurizio
www.nipeservice.com
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: How to get columns name from XBROWSE
Posted: Thu Jun 30, 2016 08:30 AM

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.

Regards



G. N. Rao.

Hyderabad, India
dutch
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: How to get columns name from XBROWSE
Posted: Thu Jun 30, 2016 10:21 AM
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.
nageswaragunupudi wrote: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.
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: How to get columns name from XBROWSE
Posted: Thu Jun 30, 2016 10:26 AM

Please let me see your xbrowse statement.

Regards



G. N. Rao.

Hyderabad, India
dutch
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: How to get columns name from XBROWSE
Posted: Thu Jun 30, 2016 01:59 PM
Dear Mr.Rao,

The statement is above.
nageswaragunupudi wrote:Please let me see your xbrowse statement.
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: How to get columns name from XBROWSE
Posted: Thu Jun 30, 2016 05:00 PM
I am very sorry I did not notice

Recommended code:
Code (fw): Select all Collapse
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())
Regards



G. N. Rao.

Hyderabad, India
dutch
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: How to get columns name from XBROWSE
Posted: Thu Jun 30, 2016 11:08 PM

Dear Mr.Rao,

Thank you so much, it works great as expectation.

Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

Continue the discussion

Static archive · New replies & topics via GitHub Discussions