Setting Column Visible = False not working?

[Mkolbe]

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.

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

[Dino]

Columnvisible not just visible

[davidbalansa]

Hi Mkolbe,

Try the following column property:

Set Com(#DemHstListColumn3) ColumnVisible(True)

or

#DemHstListColumn3.ColumnVisible := False

[Mkolbe]

Thanks, that does the trick!