【一括処理・イベント】行移動、行挿入、行削除
※項目名:[順] は、データ型:(数値)を使用する。
番号での行移動(項目名:[順])
手続き定義開始 t順::ソース値更新()
メソッド呼び出し @フォーム.更新モード設定( 0 )
条件 (#EOF) 手続き終了
行マーク定義 1
行訂正 [順] = #cond( #行番号=>[順] , [順]-0.1 , #行番号<[順] , [順]+0.1 )
並べ替え {[順]昇順}
置換 [順]=#連番
ジャンプ 行マーク = 1
行マーク解除 1
手続き定義終了
コマンドボタンでの、行移動
;
手続き定義開始 ↓()
変数宣言 数値{ &OK }
メソッド呼び出し 戻り値 = &OK,@フォーム.更新モード設定(0)
条件 (#EOF .or #行番号=#総件数) 手続き終了
行訂正 [順]=[順]+1.5
行マーク定義 1
並べ替え { [順] 昇順 }
置換 終了状態 = &OK,[順] = #連番
ジャンプ 行マーク = 1 , 終了状態 =&OK
行マーク解除 1
手続き定義終了
手続き定義開始 ↑()
変数宣言 数値{ &OK }
メソッド呼び出し 戻り値 = &OK,@フォーム.更新モード設定(0)
条件 (#EOF .or #行番号=1) 手続き終了
行訂正 [順]=[順]-1.5
行マーク定義 1
並べ替え { [順] 昇順 }
置換 終了状態 = &OK,[順] = #連番
ジャンプ 行マーク = 1 , 終了状態 =&OK
行マーク解除 1
手続き定義終了
コマンドボタンでの、行挿入(1行)
手続き定義開始 行挿入()
変数宣言 数値{ &OK , &num }
メソッド呼び出し 戻り値 = &OK,@フォーム.更新モード設定(0)
条件 (#EOF) 手続き終了
&num=[順]
行追加 [順]=&num-0.5
検索 [順]{ &num-0.5 } , 終了状態 =&OK
行マーク定義 1
並べ替え { [順] 昇順 }
置換 終了状態 = &OK,[順] = #連番
ジャンプ 行マーク = 1 , 終了状態 =&OK
行マーク解除 1
手続き定義終了
行削除
手続き定義開始 フォーム::行削除終了(長整数 &削除結果)
変数宣言 数値{ &OK , &num }
&num=#行番号
並べ替え { [順] 昇順 }
置換 終了状態 = &OK,[順] = #連番
ジャンプ 行番号 = &num
手続き定義終了