Sorting data!

[Yohn]

Hy!
Could anyone tell me how I can sort data in browser, when I click on field?

Thanks!

 

[HarryK]

When using ADM2 in the on start search trigger
DEFINE VARIABLE hDataSource AS HANDLE NO-UNDO.
DEFINE VARIABLE hColumn AS HANDLE NO-UNDO.
ASSIGN hDataSource = DYNAMIC-FUNCTION('getDataSource')
hColumn = SELF:CURRENT-COLUMN.
DYNAMIC-FUNCTION('setQuerySort' IN hDataSource, INPUT hColumn:NAME).
DYNAMIC-FUNCTION('openQuery' IN hDataSource).

when using adm1
DEF VAR ColumnHandle AS HANDLE NO-UNDO.
ASSIGN ColumnHandle = {&BROWSE-NAME}:CURRENT-COLUMN.
APPLY 'END-SEARCH' TO {&BROWSE-NAME}.

CASE ColumnHandle:NAME:
WHEN 'Cust-Num' THEN /* Cust-Num Field Selected By User? */
OPEN QUERY {&BROWSE-NAME}
FOR EACH Customer NO-LOCK BY Customer.Cust-Num.
WHEN 'Name' THEN /* Name Field Selected By User? */
OPEN QUERY {&BROWSE-NAME}
FOR EACH Customer NO-LOCK BY Customer.Name.
etc etc