319114_zh-TW

liliconcom

自定義排序窗口中的排序順序

JMP Sort窗口如何將按鈕的升序和降序傳遞到Col List Box（ListBoxBox？）到OK按鈕？

 

我需要創建一個自定義排序窗口，其中報表中的數據表選項有限。我想出了大部分方法，要么從頭開始建立一個排序窗口，要么從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")  
    );    
);