No problem,
LAYOUT
VBOX
GROUP
FOLDER
PAGE (TEXT="Table Test")
TABLE
{
Col 1 Col 2 Col 3 Col 4 Col 5
[f1 |f2 |f3 |f4 |f5 ]
}
END -- TABLE
END -- PAGE
END -- FOLDER
END -- GROUP
GROUP (TEXT="Hide/Show columns")
GRID
{
[f001]
}
END -- GRID
END -- GROUP
END -- LAYOUT
ATTRIBUTES
EDIT f1 = FORMONLY.field1;
EDIT f2 = FORMONLY.field2;
EDIT f3 = FORMONLY.field3;
EDIT f4 = FORMONLY.field4;
EDIT f5 = FORMONLY.field5;
RADIOGROUP f001 = FORMONLY.toggle_table,
ITEMS=((1,"3 columns"),(2,"5 columns")),
DEFAULT=1;
END -- ATTRIBUTES
INSTRUCTIONS
SCREEN RECORD test_array (
FORMONLY.field1,
FORMONLY.field2,
FORMONLY.field3,
FORMONLY.field4,
FORMONLY.field5);
END -- INSTRUCTIONS
The array was defined in the 4gl outside of main, just to be clear.
