Assigning columns to listbox programmatically

[Ollie]

Is there anything wrong with the way I have created the columns at runtime?

And how do I remove these columns and replace them with others? I want to change the columns in the listbox when the user changes the database order for example.

Code: Select all  Expand view  RUN

     DEFINE COLUMN BROWSE oListBox ID 40 OF oDlg_Search UPDATE ON DblClick ( lResult := .T., oDlg_Search:End() )
         oListBox:cALIAS = cALIAS
         aFlds := {"COMPANY","SURNAME","FIRSTNAME","TEL1"}
         aTitles := {"Company","Surname","FIRSTNAME","Telephone"}
         aWidths := {90,100,90,100}

      FOR i := 1 TO LEN( aFlds )
         cTemp := aFlds[ i ]
         ADD TO BROWSE oListBox DATA &cTemp HEADER aTitles[ i ] OEM ALIGN LEFT WIDTH aWidths[ i ] PIXELS
      NEXT


[Patricio Avalos Aguirre]

Prueba con esto?

Code: Select all  Expand view  RUN

FOR i := 1 TO LEN( aFlds )
      MakeBrow( aFld, oListBox, aTitle, aWidths, i )
NEXT i

//BLABLA

function MakeBrow( aFld, oLisBox, aTitle, aWidths, i )
local cTemp := aFlds[ i ]

        ADD TO BROWSE oListBox DATA &cTemp HEADER aTitles[ i ] OEM ALIGN LEFT WIDTH aWidths[ i ] PIXELS

return  nil



[Ollie]

Hi, maybe I was misunderstood. The code DOES WORK, I am just not sure if it is 'good' programming practice to use a &macro like this. If its ok, I will leave it as it is because it works.

What I still do need to know is how to change the columns that are displayed. E.g. When the user changes the Database order from SURNAME to COMPANY, I want the columns shown to be different.

[Antonio Linares]

Ollie,

> I want the columns shown to be different

You just need to refresh the browse oBrowse:Refresh()

[Ollie]

Ok, I get that, but how do I REMOVE the columns I don't want, so I can add new columns?

[Antonio Linares]

Ollie,

oBrowse:aColumns := {}

... add columns