4D v16.3REDUCE SELECTION |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v16.3
REDUCE SELECTION
|
REDUCE SELECTION ( {aTable ;} number ) | ||||||||
引数 | 型 | 説明 | ||||||
aTable | テーブル |
![]() |
セレクションの数を減らすテーブル, または 省略時デフォルトテーブル | |||||
number | 倍長整数 |
![]() |
選択するレコード数 | |||||
REDUCE SELECTIONは、aTableの新しいレコードセレクションを作成します。このコマンドはaTableのカレントセレクションの先頭からnumber個のレコードセレクションを返します。REDUCE SELECTIONは、カレントプロセスのaTableのカレントセレクションに適用されます。これはカレントプロセスのaTableのカレントセレクションを変更し、新しいセレクションの先頭レコードをカレントレコードにします。
Note: ステートメントREDUCE SELECTION(aTable;0)が実行されると、aTableのカレントセレクションおよびカレントレコードはなくなります。
以下の例では最初に、20を超える国の販売店を対象にしたコンテストの正確な統計を検索します。国ごとに$50,000以上の製品売上を記録した上位3店と、全世界で上位100店に含まれる販売店に対し、賞が送られます。ほんの数行のコードで、この複雑な処理がインデックス検索を利用して実行されます:
CREATE EMPTY SET([Dealers];"Winners") ` 空のセットを作成
SCAN INDEX([Dealers]Sales amount;100;<) ` インデックスの最後からスキャン
CREATE SET([Dealers];"100 best Dealers") ` 選択されたレコードをセットに格納
For($Country;1;Records in table([Countries])) ` 国ごとに
` この国の販売店を検索
QUERY([Dealers];[Dealers]Country=[Countries]Name;*) ` ...$50,000以上売った販売店
QUERY(&;[Dealers];[Dealers]Sales amount>=50000)
CREATE SET([Dealers];"WinnerDealers") ` セットに格納
` 上位100位以内のセットに結合
INTERSECTION("WinnerDealers";"100 best Dealers";"WinnerDealers")
USE SET("WinnerDealers") ` 国ごとの上位成績者
` 降順で並び替え
ORDER BY([Dealers];[Dealers]Sales amount;<)
REDUCE SELECTION([Dealers];3) ` 3位までを選択
CREATE SET([Dealers];"WinnerDealers") ` その国の勝者
` 全世界の勝者リストに加える
UNION("WinnerDealers";"TheWinners";"TheWinners")
End for
CLEAR SET("100 best Dealers") ` このセットはもう必要ない
CLEAR SET("WinnerDealers") ` このセットも必要ない
USE SET("The Winners") ` これが勝者
CLEAR SET("The Winners") ` このセットはもう必要ない
OUTPUT FORM([Dealers];"Prize letter") ` 印刷フォームを選択
PRINT SELECTION([Dealers]) ` 手紙を印刷
プロダクト: 4D
テーマ: セレクション
番号:
351
初出: < 4D v6
ランゲージリファレンス ( 4D v16)
ランゲージリファレンス ( 4D v16.1)
ランゲージリファレンス ( 4D v16.2)
ランゲージリファレンス ( 4D v16.3)