こんにちは、みんな、
データテーブルの対応する列のすべての値をそれぞれ含むいくつかのリストボックスを含むダイアログウィンドウを作成しようとしています。 いずれかのリストで1つ以上のアイテムを選択したら、残りのリストのアイテムをその選択に従ってフィルタリングします。 以下で説明したことを実装しましたが、次のようになります。リストサブセットインデックスを以下のように整数でハードコーディングする代わりに、ダイアログウィンドウにループを設定すると、関数は次の時点でのiの現在の値で呼び出されます。リストボックスがループで作成されたときに取った値の代わりに実行。 スクリプトガイドを読み、Eval（Eval Expr（Expr（）））やEval Substitute（Expr（）、Expr（）））などのいくつかのオプションを試しましたが、機能しません。 私は今、式全体をループ内の長い文字列として構築し、それをEval（Parse（）） 'することにしていますが、それはばかげているようです。 誰かがここで適切な構文を手伝ってくれますか？
ありがとう、
ヨハン
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>これを試して
for( i = 1, i <= N Items( filtercolumns ), i++,
eval(
evalexpr(
filter_boxes << append( Text Box( fq:filtercolumns[Expr( i )], <<SET font="" style=""></SET>「1」の場合を使用し、1をexpr（i）に変更して、eval / evalexpr内のiループ内に配置しました。
これを試していただきありがとうございます！ 残念ながら、過去に直面したのと同じ問題が発生します。リストで選択を行うと、i（つまり、4）の場合、filterSelected関数が現在の値で呼び出され、添え字範囲エラーが発生します。
私にできることはこれですが、それはただのようです... 愚かな私は推測する...
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>
