How do I know the field name in xbrowse:column

[nageswaragunupudi]

In the above example, assume we want to deal with the 'Quantity' column, which is the 3rd column at the time of creation, we can find the column object in the following ways, whatever be the position at runtime and whether hidden or not:

Code: Select all  Expand view  RUN

oCol := oBrw:oCol( 3 ) --> Quantity column object, which is the 3rd column at the time of creation.
oCol := oBrw:oCol( "Quantity" ) --> Quantity column object, whose header is "Quantity"
oCol := oBrw:Quantity --> Same as above
 

Once we get the column object we want, then:

Code: Select all  Expand view  RUN

oCol:lHide --> Whether the column is hidden or not
oCol:nPos --> Visible column number at runtime if not hidden
 

Now, please explain what are you trying to do but having problems/confusion.

[dutch]

Dear Master,

Now, please explain what are you trying to do but having problems/confusion.

For this example
===============

Code: Select all  Expand view  RUN

COLUMNS "ITEM","UPPER(NAME)","QTY","PRICE","QTY * PRICE" ;
HEADERS "Item", "Name", "Quantity", "Rate", "Amount" ;

If I hide oBrw:aCols[1]. I need to know when I click on column #2. Is it "QTY" column?
Because when I hide column#1 and click on column#2. It shows "NAME" instead.

Thank you in advance,

[Marc Venken]

Maybe this idea can help ...

I have a browse where I select the fields that I want to show in the originale browse.

Then I select the headers that I dont want to see anymore.
The
? obrw:ocol(3):cheader // will always stay as the started header (no changes)
but
? aNewfields[3] // The array with the new headers I want to see will give the correct header name..

So the idea is to use a second array with the fields shown. The function just retrieve the fields that have a tag to display

Code: Select all  Expand view  RUN

function Reorderbrowse(oBrw)
   local aNewfields:={}
   xlsfields->(dbgotop())
   DBEVAL( { || If(   xlsfields->nouse = .F. ,AAdd( aNewfields, alltrim(xlsfields->xlsfield)),NIL) } )
   oBrw:ReArrangeCols( aNewfields )
   ? obrw:ocol(3):cheader
   ? aNewfields[3]
   oBrw:refresh()
return NIL
 

[dutch]

Dear Mst.Rao and Maurizio,
I got another problem for ::nFreeze. If you scroll to right until the column hide under freeze, the :cExpr will show incorrected.

I use

cField := oBrw:aCols[oBrw:nColSel]:cExpr

Maurizio

[Maurizio]

I don't know if this is correct but you can try with :nColOffSet

Code: Select all  Expand view  RUN

oBrw:bLDblClick := <||
           Local  n := oBrw:nColSel
           if oBrw:nColOffSet >  1
              n+= oBrw:nColOffSet - 1
           endif
           ? oBrw:aCols[n]:cExpr
           Return nil
         }

Maurizio

[dutch]

Dear Maurizio,

It's work correct, thanks.

I don't know if this is correct but you can try with :nColOffSet

Code: Select all  Expand view  RUN

oBrw:bLDblClick := <||
           Local  n := oBrw:nColSel
           if oBrw:nColOffSet >  1
              n+= oBrw:nColOffSet - 1
           endif
           ? oBrw:aCols[n]:cExpr
           Return nil
         }

Maurizio

[nageswaragunupudi]

Dear Mst.Rao and Maurizio,
I got another problem for ::nFreeze. If you scroll to right until the column hide under freeze, the :cExpr will show incorrected.

I use

cField := oBrw:aCols[oBrw:nColSel]:cExpr

Maurizio

Try

Code: Select all  Expand view  RUN

cField := oBrw:SelectedCol():cExpr

[dutch]

Dear Mst.Rao and Maurizio,
I got another problem for ::nFreeze. If you scroll to right until the column hide under freeze, the :cExpr will show incorrected.

I use

cField := oBrw:aCols[oBrw:nColSel]:cExpr

Maurizio

Dear Master,

It works correctly. Thx.

Try

Code: Select all  Expand view  RUN

cField := oBrw:SelectedCol():cExpr