Send value of check box to the last row of a specified column

Onjai

The user selects a point on a chart. The script is then run where the user selects an option in a modal check box, "start" or "end".  The script copies the selected row of data to another table, dt2.  This part works fine.  I cannot seem to append the value selected in the check box into column called "position" for the same row that was just added by the concatenate statement.

 

//Modal (non-Modal) Retrieval in OK button
//Initialize
cycleList = {"start", "end"};
rb_c = 0;

New Window( "Select start/end", <<Modal, // comment out Modal and run this block
Text Box( "Please select if start of cycle or end" ),
Text Box( " " ),
H List Box(
Panel Box( "Cycle",
Lineup Box( 1,
rb_cycle = Radio Box( cycleList, <<Set( rb_g ) )
) // end LineupBox
), //end PanelBox
Panel Box( "Action",
V List Box(
ok_btn = Button Box( "OK",
rb_c = rb_cycle << Get;
wait(0);
dt2 << Go To (6);
dt2 <<go to row(nrow(dt2);
Values(rb_c));
Show(rb_c, cycleList[rb_c],
// Get Selected returns the list value
(rb_cycle << Get selected) )
), //end OK
cncl_btn = Button Box( "Cancel" )
)
)
)
);
dt = Data Table ("Big Class");
dt2 = Data Table ("BigClass2");
dt3 = dt << subset( Selected Rows( 1 ), Selected columns only( 0 ) );
dt2 << concatenate( dt3, AppendToFirstTable( 1 ) );
dt3 << Close Window;

 

ian_jmp

You can avoid the JMP 13 dependency by using a loop:

NamesDefaultToHere(1);

// Sample data
dt = Open("$SAMPLE_DATA/Big Class.jmp");

// UI
win = NewWindow("Select Cycles",
			rc = dt << Control Chart(
								Sample Size( 1 ),
								KSigma( 3 ),
								Chart Col( :height, Run Chart( Show Center Line( 0 ) ) )
							),
			PanelBox("Define Cycle",
				LineUpBox(NCol(2),
					ButtonBox("Start Cycle", startScript),
					ButtonBox("End Cysle", endScript)
					)
				)
			);

// Make a copy of 'dt' with no rows
dt2 = Eval(dt << getScript);
dt2 << deleteRows(1::NRow(dt));
dt2 << setName((dt << getName)||" - Cycles");
// Add extra columns
dt2 << NewColumn("Row", Numeric, Ordinal);
dt2 << NewColumn("Cycle", Character);

// When 'Start Cycle' is pressed - If multiple rows are selected, take the first
startScript =
Expr(
	r = dt << getSelectedRows;
	dt2 << addRows(1);
	for(c=1, c<=NCol(dt), c++, Column(dt2, c)[NRow(dt2)] = Column(dt, c)[r[1]]);
	Column(dt2, "Row")[NRow(dt2)] = r[1];
	Column(dt2, "Cycle")[NRow(dt2)] = "Start";
);

// When 'End Cycle' is pressed - If multiple rows are selected, take the first
endScript =
Expr(
	r = dt << getSelectedRows;
	dt2 << addRows(1);
	for(c=1, c<=NCol(dt), c++, Column(dt2, c)[NRow(dt2)] = Column(dt, c)[r[1]]);
	Column(dt2, "Row")[NRow(dt2)] = r[1];
	Column(dt2, "Cycle")[NRow(dt2)] = "End";
);

Regarding 'multiple rows will not be selected by the user', then, if I have understood correctly, it is certainly possible that they could . . .