xbrowse - SetArray

[nageswaragunupudi]

Now, SetArray method resets all columns already defined if any ( ::aCols := {} ). If we use the new command set provided for xbrowse like this :

Code: Select all  Expand view  RUN

function xbrindialog( alin )
local odlg, obrw

   define dialog odlg size 640,440 pixel

   @ 10,10 xbrowse obrw ;
      fields str(alin[obrw:narrayat][1],2), ;
             alin[obrw:narrayat][2], ;
             alin[obrw:narrayat][3]  ;
      headers 'cod','description','cd' ;
      size 300,200 pixel of odlg
        // at this stage the columns are arleady defined
   obrw:setarray(alin)  // now setarray erases all the column defs

   obrw:createfromcode()
   activate dialog odlg centered

   return nil


If the following change is made in SetArray method to automatically define the columns only if the columns are not already defined, the above code works as expected. The suggested change is

Code: Select all  Expand view  RUN

if empty( ::acols )  // NEW
    ::aCols := {}
    for nFor := 1 to len( aData[ 1 ] )
         < ........... code ......... >
   next
endif  // NEW


With this change the above code works well