Setting Column Visible = False not working?
Posted: Tue Apr 01, 2025 5:38 am
I am attempting to display a certain number of columns in a list based upon a user selecting a value from a drop down.
If the user chooses the value of 5 (years), data should be shown in all 5 columns. However, if they choose 3 or 4, I set the column's visibility as "False". I've tried setting the column with Visible(False) two different ways as shown in the code below, but with no luck.
As you can see from the results, the data is still partially visible.
It may be worth noting that we are using visual Lansa version 15, EPC 150074.
If the user chooses the value of 5 (years), data should be shown in all 5 columns. However, if they choose 3 or 4, I set the column's visibility as "False". I've tried setting the column with Visible(False) two different ways as shown in the code below, but with no luck.
As you can see from the results, the data is still partially visible.
It may be worth noting that we are using visual Lansa version 15, EPC 150074.
Code: Select all
** Demand History List
Define_Com Class(#PRIM_LIST) Name(#DemHstList) Displayposition(1) Left(3) Parent(#COM_OWNER) Tabposition(8) Top(56) Width(435) Height(340)
Define_Com Class(#PRIM_LIST.Number) Name(#DemHstListColumn1) Columnwidth(50) Displayposition(1) Parent(#DemHstList) Source(#FC31_Demand_Period_Abbrev) Columncaption('Month') Columncaptiontype(Caption) Columnresize(False) Cellwidth(50)
Define_Com Class(#PRIM_LIST.Number) Name(#DemHstListColumn2) Columnwidth(73) Displayposition(2) Parent(#DemHstList) Source(#FC31_Year_1_Qty) Columncaption('YR -4') Displayalignment(Right) Columnresize(False) Columncaptiontype(Caption) Cellwidth(73) Columnpinned(Right)
Define_Com Class(#PRIM_LIST.Number) Name(#DemHstListColumn3) Columnwidth(73) Displayposition(3) Parent(#DemHstList) Source(#FC31_Year_2_Qty) Columncaption('YR -3') Columncaptiontype(Caption) Displayalignment(Right) Columnresize(False) Cellwidth(73) Columnpinned(Right)
Define_Com Class(#PRIM_LIST.Number) Name(#DemHstListColumn4) Columnwidth(73) Displayposition(4) Parent(#DemHstList) Source(#FC31_Year_3_Qty) Columncaption('YR -2') Columncaptiontype(Caption) Displayalignment(Right) Columnresize(False) Cellwidth(73) Columnpinned(Right)
Define_Com Class(#PRIM_LIST.Number) Name(#DemHstListColumn5) Columnwidth(73) Displayposition(5) Parent(#DemHstList) Source(#FC31_Year_4_Qty) Columncaption('YR -1') Columncaptiontype(Caption) Displayalignment(Right) Columnresize(False) Cellwidth(73) Columnpinned(Right)
Define_Com Class(#PRIM_LIST.Number) Name(#DemHstListColumn6) Columnwidth(72) Displayposition(6) Parent(#DemHstList) Source(#FC31_Year_5_Qty) Columncaptiontype(Caption) Displayalignment(Right) Columnresize(False) Columncaption('Prior Year') Cellwidth(73) Columnpinned(Right)
Add_Entry To_List(#DemHstList)
Case Of_Field(#YRSel)
When Value_Is(*EQ 3)
Set Com(#DemHstListColumn2.CurrentItem) Visible(False)
Set Com(#DemHstListColumn3.CurrentItem) Visible(False)
#DemHstListColumn2.Visible := False
#DemHstListColumn3.Visible := False
When Value_Is(*EQ 4)
Set Com(#DemHstListColumn2.CurrentItem) Visible(False)
Set Com(#DemHstListColumn3.CurrentItem) Visible(True)
#DemHstListColumn2.Visible := False
#DemHstListColumn3.Visible := True
When Value_Is(*EQ 5)
Set Com(#DemHstListColumn2.CurrentItem) Visible(True)
Set Com(#DemHstListColumn3.CurrentItem) Visible(True)
#DemHstListColumn2.Visible := True
#DemHstListColumn3.Visible := True
Endcase