有时，构建允许用户更改将使用的数据表的用户界面会很好（目前我的解决方案是“从不”添加更改数据表的选项）。 据我所知，您当前必须重新创建过滤器 col 选择器和 col 列表框才能更改它们使用的数据表。
这就是我认为你必须做的：
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>
这就是我希望完成的方式：
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>
这将消除对不必要的显示框的需要，并使参考更改变得更加简单。
