Xbrowse Autosort disabled when inserting a column in code

[Rick Lipkin]

To All

I have noticed that when I ADD a column ( 2 ) with code the Autosort for that column has been disabled.

I have a first name and last name field in a recordset and I use an Add column ..

Is there a way to turn on the Autosort for this column FWH 1202 ?

Thanks
Rick Lipkin

Code: Select all  Expand view

DEFINE DIALOG oWork RESOURCE "WORKBROW" of oWndChild

       REDEFINE xBROWSE oLBX         ;
         RECORDSET oRsRepair         ;
         COLUMNS "RN",               ;
                 "ADDR1",            ;
                 "CITY",             ;
                 "PH",               ;
                 "RT",               ;
                 "STATUS",           ;
                 "TN",               ;
                 "PN",               ;
                 "MN",               ;
                 "MODEL",            ;
                 "SNUM"              ;
         COLSIZES 65,150,85,85,85,85,85,85,120,120,120  ;
         HEADERS "Repair Num",       ;
                 "Address",          ;
                 "City",             ;
                 "Phone",            ;
                 "Request Type",     ;
                 "Status",           ;
                 "Tracking Num",     ;
                 "Pref Tech",        ;
                 "Manufacturer",     ;
                 "Model Number",     ;
                 "Serial Number"     ;
         ID 172 of oWork             ;
         AUTOCOLS LINES AUTOSORT CELL

       // autosort does not seem to work with columns added with code
      ADD oCol TO oLbx AT 2 DATA {|x| x := _ChkCust(oRsRepair:Fields("lname"):Value,;
                   oRsRepair:Fields("fname"):Value)  } HEADER "Customer Name" size 150
     

       ADD oCol TO oLbx AT 5 DATA {|x| x := _ChkComp(oRsRepair:Fields("cc"):Value) };
                   HEADER "Instructions" size 150

...
...
//-------------------
Static Func _ChkCust( cLast,cFirst )

Local cName

If cFirst = " " .or. empty( cFirst)
   cName := substr(alltrim( cLast )+space(40),1,40)
Else
   cName := substr(alltrim( cLast )+", "+alltrim(cFirst)+space(40),1,40)
Endif

Return(cName)

 

[nageswaragunupudi]

We have to add SORT <uOrder> clause to the ADD TO oBrw command.

In your example, please try adding

Code: Select all  Expand view

SORT "LNAME,FNAME"
 

to the ADD TO oBrw command.
Because this is a browse of recordset, the expression oRs:Sort := "LNAME,FNAME" will be used by xbrowse for sorting this column.

[Rick Lipkin]

Rao

Thank you .. that did the trick ..

Rick Lipkin

[Rick Lipkin]

Rao

It seems that adding the sort allows the column to sort in Ascending order .. when I click on the heading again the order does not switch to Descending.

Is there a way to be able to switch between the orders when you alternate click on the heading ?

Thanks
Rick Lipkin

[nageswaragunupudi]

It seems that adding the sort allows the column to sort in Ascending order .. when I click on the heading again the order does not switch to Descending.

It should work.
Please check again.

[Rick Lipkin]

Rao

I noticed if I just selected the Sort "LNAME" ( instead of "LNAME,FNAME") everything worked as you suggested!

Thanks
Rick Lipkin