319114_zh-CN

liliconcom

自定义排序窗口中的排序顺序

JMP Sort窗口如何将按钮的升序和降序传递到Col列表框（ListBoxBox？）到“确定”按钮？

 

我需要创建一个自定义排序窗口，其中报表中的数据表选项有限。我想出了大部分方法，要么从头开始建立一个排序窗口，要么从JMP排序窗口开始。 下面是后者的示例。

 

如何得到order_list == ????????;从排序窗口？

使用“获取项目”可以轻松地对列进行排序。 如何获得与在“列列表”框中的数据类型和列名称之前出现的升序和降序图标相关的方向？

 

 

这是示例代码。

 

 

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
Sort(dt);

sort_window = Get Window( "Sort" );
sort_window[1][1][1][3][1] << Delete Box();
sort_window[1][1][1][2][1][2] << Delete Box();
sort_window[1][1][1][2][3][1][5] << Delete Box();
sort_window[1][1][1][2][3][1][4] << Delete Box();
sort_window[1][1][1][2][3][1][3] << Delete Box();
sort_window[1][1][1][2][3][1][2] << Delete Box();
sort_window[1][1][1][2][3][1][1] << Delete Box();
sort_window[1][1][1][2][2][2] << Delete Box();

selected_column_box = sort_window[1][1][1][2][2][1][1][2];

sort_window[1][1][1][2][3][1] << append( Button Box( "     OK     ",
    Print("OK clicked");
    sel_list = selected_column_box << Get Items;
    sel_string = sel_list[1];
    For( i = 2, i <= N Items(sel_list), i++,
      sel_string = sel_string || ", " || sel_list[i]
    );
    //// For Testing
//    order_list = {"Ascending", "Ascending"};
    order_list == ????????;
    order_string = order_list[1];
    For( i = 2, i <= N Items(order_list), i++,
        order_string = order_string || ", " || order_list[i]
    );

    sort_statement = "dt << Sort( By(^sel_string^), Order(^order_string^),  Replace Table);";
    Eval Insert Into( sort_statement );
 Eval( Parse( sort_statement ) );
    , <<SET icon=""></SET>

 

感谢您的任何建议。

 

图形其他脚本编写回复：自定义排序窗口中的排序顺序

感谢JMP技术支持中的Wendy Murphrey给我一些建议，以帮助我做自己想做的事情。

 

尽管我仍然想知道排序窗口的元素如何访问升序和降序，但我并不需要它。 任何对此问题有解答的人，请随时让我知道。

 

不管怎样，我的目标是在报表标签中对表格进行排序。 这些表链接到实际进行排序的不可见表。 但是，我必须强制替换表，以便用户在处理报表时不会创建大量未跟踪的表。

 

除了在选项卡中放置所有报告创建和管理报告表之外，这里还更新了对后台不可见表进行排序的核心内容，该表应适用于我们的报告表。

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
Sort(dt);

sort_window = Get Window( "Sort" );

// For stability, collapse, don't delete window elements
sort_window[1][1][1][3][1] << Visibility( "Collapse" );
sort_window[1][1][1][2][3][1][4] << Visibility( "Collapse" );
sort_window[1][1][1][2][2][2] << Visibility( "Collapse" );
sort_window[1][1][1][2][1][2] << Visibility( "Collapse" );

sort_window << OnClose(
    dt1 = Get Data Table( 1 );
   // Include name check in case users figure out a way
   // to replace tables themselves, despite collapsing that option above
    old_name = dt << Get Name();
    new_name = dt1 << Get Name();
    if( new_name != old_name, 
        dt << Update( With( dt1 ) );
        Close(dt1, "No Save")  
    );    
);