Salut à tous,
J'essaie de créer une fenêtre de dialogue avec plusieurs zones de liste, chacune contenant toutes les valeurs d'une colonne correspondante dans une table de données. Lors de la sélection d'un ou plusieurs éléments dans l'une des listes, je veux que les éléments des listes restantes soient filtrés en fonction de cette sélection. J'ai implémenté ce que je viens de décrire ci-dessous, mais voici la chose: si je remplis la fenêtre de dialogue dans une boucle au lieu de coder en dur les index du sous-ensemble de liste avec des entiers comme ci-dessous, la fonction est appelée avec la valeur actuelle de i au moment de au lieu de la valeur qu'elle a prise lors de la création de la listbox dans la boucle. J'ai lu le guide de script et essayé plusieurs options, notamment Eval (Eval Expr (Expr ())) et Eval Substitute (Expr (), Expr ())) mais je ne parviens pas à le faire fonctionner. Je suis maintenant prêt à construire l'expression entière comme une longue chaîne dans une boucle et à l'évaluer (Parse ()) mais cela semble juste idiot. Quelqu'un peut-il m'aider avec la syntaxe appropriée ici?
Merci,
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>Essaye ça
for( i = 1, i <= N Items( filtercolumns ), i++,
eval(
evalexpr(
filter_boxes << append( Text Box( fq:filtercolumns[Expr( i )], <<SET font="" style=""></SET>J'ai utilisé le cas "1", changé les 1 en expr (i), mis cela dans eval / evalexpr, dans la boucle i.
Merci d'avoir donné une chance à ça! Malheureusement, j'obtiens le même problème que j'avais rencontré dans le passé: lorsque je fais une sélection dans la liste, la fonction filterSelected est appelée avec la valeur actuelle si i (c'est-à-dire 4), ce qui entraîne une erreur de plage d'indice.
Ce que je peux faire, c'est ceci, mais cela semble juste ... Idiot je suppose ...
expression = "";
for( i = 1, i <= N Items( fq:filtercolumns ), i++,
expression = expression ||
"filter_boxes << append( Text Box( fq:filtercolumns[" || char(i) || "], <<SET font="" style=""></SET>
