ツリー - LostFocusイベント
他の項目がフォーカスを持つと起動
ツリー内のアイテムをソートします。
ツリー (PRIM_TREE) のメンバ
パラメータ
名前 | タイプ | データタイプ | 記述 |
|---|---|---|---|
Key | *Input | バリアント | ソートする値 |
Order | *Input (任意) | 列挙 | ソートする順序 |
詳細
Sort メソッドは、 Tree 内のソート処理を開始するために使用されます。
この処理により、 Prim_Tree.TreeDesign インターフェイスの OnSort メソッドは、ソートが必要と判断するたびに実行されます。
ソートは完全にユーザー定義されているため、ソート・ルーチンに Key （ソートされている 'value' ） と Order を指定する必要があります。 そして、この情報は OnSort メソッドで使用されます。
例
この例は、再利用可能な設計部分によって実装された、再定義された OnSort メソッドを示しています。
3 つの異なるソートをサポートしています。それは、 EMPNO 、 SURNAME および GIVENAME になります。これらの Key 値は完全に任意ですが、簡単にするために、特定のフィールド名と一致します。ここでの並べ替えは昇順のみです。
それぞれの場合、局所変数値は、この場合はデザインインスタンスのプロパティとして公開された同等の変数値と比較され、各値が他の値よりも小さいか等しいか、または大きいかどうかが判定されます。
OnSort メソッドが各項目を評価するときに、各項目に対して OnSort メソッドが何度も呼び出されることがあります。
Mthroutine Name(OnSort) Options(*Redefine)
Case (#Key)
When (= EMPNO)
#Result := #Empno.Compare( (#CompareTo.Design *As #EmployeePart).Empno )
When (= GIVENAME)
#Result := #Givename.Compare( (#CompareTo.Design *As #EmployeePart).Givename )
When (= SURNAME)
#Result := #Surname.Compare( (#CompareTo.Design *As #EmployeePart).Surname )
Endcase
Endroutine