Listbox sort by column

[cdmmaui]

Is it possible to click on a column header and sort by that column for listbox? Using the example below if user clicks on Reference, Our Reference or A/R Code, listbox will be sorted by that column value. I would appreciate any help with this. Thank You.

REDEFINE LISTBOX oTblBox FIELDS paytempt->ref , ;
paytempt->ourref , ;
paytempt->arcode ;
ID 6000 ;
HEADERS "Reference", "Our Reference", "A/R Code" ;
FIELDSIZES 175 , 125 , 75 ;
SELECT txno FOR cTxno ;
ON DBLCLICK RopPay( oFld, oTblBox, .F., cTxno, @nAmount, @nTxtype, @aGet ) ;
OF oFld:aDialogs[1] UPDATE

[Colin Haig]

Darrell

Have a look at oLbx:aActions := aTags

aTags := { {|| codeblock for first header },;
{|| codeblock for second header}}


Hope this helps

Colin

[cdmmaui]

Hi Colin, thank you very much!!! That worked!