kiri9.com

【一括処理・イベント】行移動、行挿入、行削除

行移動

 ※項目名:[順] は、データ型:(数値)を使用する。

 t順

番号での行移動(項目名:[順])

t順

手続き定義開始 t順::ソース値更新()
 メソッド呼び出し @フォーム.更新モード設定( 0 )
 条件 (#EOF) 手続き終了
  行マーク定義  1
    行訂正 [順] = #cond( #行番号=>[順] , [順]-0.1 , #行番号<[順] , [順]+0.1 )
    並べ替え {[順]昇順}
    置換 [順]=#連番
  ジャンプ  行マーク = 1
  行マーク解除 1
手続き定義終了

コマンドボタンでの、行移動

b↓

 b↓;

手続き定義開始 ↓()
 変数宣言 数値{ &OK }
 メソッド呼び出し 戻り値 = &OK,@フォーム.更新モード設定(0)
 条件 (#EOF .or #行番号=#総件数) 手続き終了
  行訂正 [順]=[順]+1.5
  行マーク定義  1
  並べ替え  { [順] 昇順 }
  置換 終了状態 = &OK,[順] = #連番
 ジャンプ  行マーク = 1 , 終了状態 =&OK
 行マーク解除 1
手続き定義終了


b↑

 b↑

手続き定義開始 ↑()
 変数宣言 数値{ &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
手続き定義終了

powered by Quick Homepage Maker 5.3
based on PukiWiki 1.4.7 License is GPL. QHM

最新の更新 RSS  Valid XHTML 1.0 Transitional