De temps en temps, il serait bien de créer des interfaces utilisateur permettant à l'utilisateur de modifier les tables de données qui seront utilisées (actuellement, ma solution à cela est de "jamais" ajouter d'option pour modifier les tables de données). À ma connaissance, vous devrez actuellement recréer le sélecteur de col de filtre et la zone de liste de col pour modifier les tables de données qu'ils utilisent.
C'est ce que je pense qu'il faut faire :
Voir plus...
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Probe.jmp", invisible);
dt1 = Open("$SAMPLE_DATA/Big Class.jmp", invisible);
dt2 = Open("$SAMPLE_DATA/Semiconductor Capability.jmp", invisible);
close_dts = Expr(
Try(Close(dt, no save));
Try(Close(dt1, no save));
Try(Close(dt2, no save));
);
change_table = Expr(
cur_table = (lb << get selected)[1];
// this wont work on filter col box due to ifbox created by it
clb << Delete Box();
vlb_clb << Append(clb = Col List Box(Datatable(cur_table), all, numeric, max selected(1), nlines(5), <<MODELING type=""></MODELING>
C'est comme ça que j'aimerais que ça se passe :
Voir plus...
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Probe.jmp", invisible);
dt1 = Open("$SAMPLE_DATA/Big Class.jmp", invisible);
dt2 = Open("$SAMPLE_DATA/Semiconductor Capability.jmp", invisible);
close_dts = Expr(
Try(Close(dt, no save));
Try(Close(dt1, no save));
Try(Close(dt2, no save));
);
change_table = Expr(
cur_table = (lb << get selected)[1];
fcs << Set Data Table(cur_table);
clb << Set Data Table(cur_table);
);
nw = New Window("Col List Box Example",
H List Box(
lb = List Box(Get Data Table List(),
change_table
),
fcs = Filter Col Selector(Datatable(dt)),
clb = Col List Box(Datatable(dt), all, numeric, max selected(1), nlines(5), <<MODELING type=""></MODELING>
Cela éliminerait le besoin de boîtes d'affichage inutiles et rendrait le changement de référence beaucoup plus simple.
