Hi Guys,
I'm doing a xbrowse of a rowset and I need to add cols at runtime. Could someone help me ?
Board index FiveWin for Harbour/xHarbour How to add cols in a xbrowse at runtime?
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:
Rick Lipkin
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:
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
Thank you 
From 17.04 onwards you can also use:
Using this method, the new column is fully configured including width, picture clause, alignment, etc.
oCol := oRs:XbrAddColumn( oBrw, cFieldName, [cHeader] )
WITH OBJECT oCol
// other clauses
ENDUsing this method, the new column is fully configured including width, picture clause, alignment, etc.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Thanks Mr Rao