572585_en-US

liliconcom

Issue with the selection of the Data table

Hello,

 

I hope you are doing well.

This is a very long and unoptimized code to perform 2 subsets from two different data sets ("CL and Spec" and "Data set"). There is a text box to choose what rows to select according to the levels of the data sets.

However, the issue is after the subset of the first data table is performed (data set named "CL and Spec"), the subset of the second data set (named "Data set") doesn't work without any error message. There is just no subset that is performed. My understanding is that there is an issue with my way of selecting the data set to select for the subset. Or I didn't use the "Current Data Table" function correctly.

 

Here is my code:

 

dt2 = Data Table( "CL and Spec" );
Current Data Table( dt2 );

// get unique values from the strength column
Summarize( dt2, levels = by( :Product ) );

// construct a window containing checkboxes
New Window( "Selection",
 modal,
 Border Box( top( 20 ), bottom( 20 ), Left( 20 ), Right( 20 ),
  V List Box(
   Text Box( "Select values:" ),
   here:cb = Check Box( levels ),
   Spacer Box( size( 0, 20 ) ),
   Button Box( "Create Subset", doSubset() )
  )
 )
);

// define function to perform when button is cliccked
doSubset = Function( {},
 {default local}, 

 dt2 = Current Data Table();
 dt2 << clear select;

  // get user selections
 selected = here:cb << get selected;
  
  // iterate over each of the selected values
 // and select the associated rows
 For( i = 1, i <= N Items( selected ), i++,
  rows = dt2 << select  where( :Product == selected[i], current selection( "extend" ) )
 );
  // create a subset table
 dt2 << subset( selected rows( 1 ), selected columns only( 0 ) );
 dt2 << clear select;

);

// Define the control and specification limits
LSL = dt2:LSL[1];
USL = dt2:USL[1];

dt = Data Table( "Data Set" );
Current Data Table( dt );

// get unique values from the strength column
Summarize( dt, levels = by( :Strength ) );

// construct a window containing checkboxes
New Window( "Selection",
 modal,
 Border Box( top( 20 ), bottom( 20 ), Left( 20 ), Right( 20 ),
  V List Box(
   Text Box( "Select values:" ),
   here:cb = Check Box( levels ),
   Spacer Box( size( 0, 20 ) ),
   Button Box( "Create Subset", doSubset() )
  )
 )
);


// define function to perform when button is cliccked

doSubset = Function( {},
 {default local}, 

 dt = Data Table( "Data Set" );
 Current Data Table( dt );
 dt << clear select;

  // get user selections
 selected = here:cb << get selected;
  
  // iterate over each of the selected values
 // and select the associated rows
 For( i = 1, i <= N Items( selected ), i++,
  rows = dt << select  where( :Strength == selected[i], current selection( "extend" ) )
 );
  // create a subset table
 dt << subset( selected rows( 1 ), selected columns only( 0 ) );
  
 dt << clear select;

);

I hope my question and problem is clearly expressed  

 

Thank you very much for you help and have a nice day !

 

Jean

Scripting