341026_en-US

liliconcom

Force evaluation of iterator index in loop

Hi all,

I am trying to build a dialog window with several list boxes, each containing all the values of a corresponding column in a data table. Upon selection of one of more items in any of the lists I want the items in the remaining lists filtered according to that selection. I have implemented what I just described below but here is the thing: If I populate the dialog window in a loop instead of hard coding the list subset indexes with integers as below, the function is called with the current value of i at the time of execution instead of the value it took when the listbox was created in the loop. I have read through the scripting guide and tried several options including Eval( Eval Expr( Expr())) and Eval Substitute( Expr(), Expr())) but I cannot get it to work. I am now down to building the whole expression as a long string in a loop and Eval( Parse())'ing it but that just seems silly. Can someone help me out with the proper syntax here?

Thanks,

Johan

 

Names Default To Here( 1 );

If( !Namespace Exists( "fq" ),
 New Namespace(
  "fq"
 )
);

dt = New Table( "Sample data",
 Add Rows( 9 ),
 New Column( "id",
  Character,
  "Nominal",
  Set Values( {"a", "a", "a", "b", "b", "b", "c", "c", "c"} )
 ),
 New Column( "value",
  Character,
  "Nominal",
  Set Values( {"A", "B", "C", "D", "E", "F", "G", "H", "I"} )
 ),
 New Column( "val2",
  Character,
  "Nominal",
  Set Values( {"one", "two", "three", "one", "two", "three","one", "two", "three"} )
 )
);

filterSelected = Function( {dt, values, index}, 
 /*
 Sorts displayed values in all list boxes based on selection
 */
 
 columns = fq:filterColumns;
 filters = fq:filters;
 selectedColum = Remove From( columns, index )[1];
 selctedFilter = Remove From( filters, index )[1];
 rows = dt << Get rows where( Contains( values, as Column( dt, selectedColum ) ) );
 
 // If nothing is selcted, all values should be chosen
 If(Length(values)==0,
  rows = dt << get rows where(!Ismissing(As Column(dt, selectedColum)))
 );

 // Set list items according to selection
 Local( {j = 1},
  For( j = 1, j <= N Items( filters ), j++,
   filters[j] << Set items( Column( dt, columns[j] )[rows] )
  )
 );
);

getSelection = Function( {},
 Local( {j =1},
  For( j=1, j <= N Items(fq:filters), j++,
   print(fq:filterColumns[j], fq:filters[j] << get items());
  );
 );
);

nestedFilters = Function( {filtercolumns},
 fq:filtercolumns = filtercolumns;
 dialog = New Window( "Fetch rows matching:",
  Show Menu( 0 ),
  show toolbars( 0 ),
  Border Box( Top( 20 ), Bottom( 20 ), Left( 10 ), Right( 10 ),
   V List Box(
    Align( right ),
    filter_boxes = V List Box(),
    H List Box(
     ok_button = Button Box( "OK" ),
     cancel_button = Button Box( "Cancel", dialog << close window )
    )
   )
  ),
  ok_button << Set function(
   getSelection();
   dialog << close window;
  )
 );
   
 fq:filters = {};
 fq:all_rows = {};
 //for(i=1, i<=N Items(filtercolumns), i++,
 filter_boxes << append( Text Box( fq:filtercolumns[1], <<SET font="" style=""></SET>

ScriptingRe: Force evaluation of iterator index in loop

Try this

 for( i = 1, i <= N Items( filtercolumns ), i++,
  eval(
   evalexpr(
    filter_boxes << append( Text Box( fq:filtercolumns[Expr( i )], <<SET font="" style=""></SET>

I used the "1" case, changed the 1s to expr(i), put that inside the eval/evalexpr, inside the i loop.

 

Re: Force evaluation of iterator index in loop

Thank you for giving this a shot! Unfortunately I get the same problem as I had faced in the past: When I make a selection in the list, the filterSelected function is called with the current value if i (i.e. 4), resulting in a Subscript Range error.