How to add cols in a xbrowse at runtime?

[vilian]

Hi Guys,

I'm doing a xbrowse of a rowset and I need to add cols at runtime. Could someone help me ?

[Rick Lipkin]

Vilian

Here is the code I use .. I think Rao may have a better solution ... however, this is will work... I am inserting\adding a Customer name at column 2:

Code: Select all  Expand view

ADD oCol TO oLbx AT 2 DATA {|x| x := If(oRsRepair:Eof, ,_ChkCust(oRsRepair:Fields("lname"):Value,;
                   oRsRepair:Fields("fname"):Value))  } HEADER "Customer Name" size 150 ;
                             SORT "LNAME"

.
.
.

//-------------------
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)
 

Rick Lipkin

[vilian]

Thank you

[nageswaragunupudi]

From 17.04 onwards you can also use:

Code: Select all  Expand view

oCol := oRs:XbrAddColumn( oBrw, cFieldName, [cHeader] )
WITH OBJECT oCol
   // other clauses
END
 

Using this method, the new column is fully configured including width, picture clause, alignment, etc.

[vilian]

Thanks Mr Rao