投稿者 okigaru | 2012/02/29

バーチャルリスト

# #1と#1でリレーションだからレコードが無いと出来ないので
新規レコード

#マスタからリストを作る
変数を設定 [ $maSN ; Substitute (List(List(マスタ::SN);” “);” “;””) ]

#明細のリストを作る
変数を設定 [ $meSN ; Substitute (List(List(明細::SN);” “);” “;””) ]

#マスタのリストを明細のリストでフィルタすると
#コードで使われているマスタのリストが出来る
変数を設定 [ $VL ; FilterValues ( $maSN ; $meSN ) ]

#出来上がったリストの数を数える
変数を設定 [ $nn ; ValueCount ( $VL ) ]

#1行目
変数を設定 [ $n ; 1 ]
全レコードを表示

#全部消す
対象レコード削除 [ ダイアログなし ]

Loop
Exit Loop If [ $nn < $n ]
新規レコード
フィールド設定 [ リスト::SN ; GetValue ( $VL ; $n ) ]
変数を設定 [$n ; $n + 1 ]
End Loop

#バラバラに入るのでソートする
レコードのソート [ 記憶する ; ダイアログなし ]

5000件明細レコードと800件マスタレコードで1秒で処理

広告

カテゴリー

%d人のブロガーが「いいね」をつけました。