topic Re: How to make Col List Box Report only specific data type in Discussions

How to make Col List Box Report only specific data type

yanee — Fri, 09 Jun 2023 23:33:13 GMT

try to make a column list box so the user can select parameters for analysis.

Want to limit to column with data type "character" in this col list box. Use the script below but it report all columns.

nw = new window("Select Parameter for Pareto",
borderbox(left(3),top (2),
		hlist box(
			textBox("Select Group for Yield Analaysis"),
			hlistbox(
				vlistbox(
						panelbox("Select group",
						ColListData = collistbox( all, << set Data Type( "character" ));
						)
				)
			),
			panelbox("Select Parameters",
				LineupBox(NCol(2),Spacing(3),
                        ButtonBox("Y, Columns", colListY<<Append(colListData<<GetSelected)),
                        colListY = ColListBox(nLines(5),"character"),
			),
		 
			),
			panelbox("Action",
				button box("OK",
					list = eval(colListY<<getitems);
					nw << close window;
				),
				button box("Cancel",nw<<close window),
				button box ("Remove",
					 colListY<<removeselected;
				)
			)
		

))
);

Re: How to make Col List Box Report only specific data type

txnelson — Thu, 23 Jul 2020 22:30:56 GMT

Here are the options available to Col List Box, taken from the Scripting Inded

Help==>Scripting index

It has options for setting the data type and the modeling type

Re: How to make Col List Box Report only specific data type

yanee — Fri, 24 Jul 2020 00:59:39 GMT

try that but it still show all columns.

Re: How to make Col List Box Report only specific data type

txnelson — Fri, 24 Jul 2020 01:21:51 GMT

Here is a rework of your code. You had already limited the first Col List Box() to "Character", you just didn't use the correct syntax for the second Col List Box()

names default to here(1);
dt=open("$SAMPLE_DATA\big class.jmp");

nw = new window("Select Parameter for Pareto",
borderbox(left(3),top (2),
		hlist box(
			textBox("Select Group for Yield Analaysis"),
			hlistbox(
				vlistbox(
						panelbox("Select group",
						ColListData = collistbox( all, << set Data Type( "character" ));
						)
				)
			),
			panelbox("Select Parameters",
				LineupBox(NCol(2),Spacing(3),
                        ButtonBox("Y, Columns", colListY<<Append(colListData<<GetSelected)),
                        colListY = ColListBox(all,nLines(5), << set Data Type( "character" )),
			),
		 
			),
			panelbox("Action",
				button box("OK",
					list = eval(colListY<<getitems);
					nw << close window;
				),
				button box("Cancel",nw<<close window),
				button box ("Remove",
					 colListY<<removeselected;
				)
			)
		

))
);