HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 ファイル一覧 検索 過去ログ

■13552 / 2階層)  連番の自動付与
□投稿者/ ONnoji -(2022/09/01(Thu) 18:09:57)
    2022/09/02(Fri) 10:53:39 編集(投稿者)
    2022/09/01(Thu) 18:18:31 編集(投稿者)

    > ななーしさん、ONnojiさん
    >
    > 並び替えて、最大値に+1しかないようですね。

    サンプルを作ってみました。ご参考にしてください。

    添付ファイルを解凍して

    フォーム:グループ毎の連番を振る.wfm を開いて、[A]に行追加・挿入してください。

    自動的に採番します。

    内容はあくまでも参考です。細かいことは気にせずに見てください。

    ファイルは桐9-2012です。桐10sでは桐コンバータで変換してください。

    なお、添付ファイルは数日を目途に削除しますので、ダウンロードはお早めに願います。

     ◇ ◇ ◇ ◇ ◇ ◇

    ■グループ毎の連番を振る.wfm

     フォーム
     ├ ファミリ
     ├ ワークスペース
     │ └ cmdStartup
     ├ フォーム操作バー
     ├ フォームヘッダ部
     │ ├ a
     │ ├ lblA
     │ └ lblNO
     └ フォーム明細部
       ├ 行セレクタ
       ├ txtA
       └ txtNO

     グループ毎の連番を振る.wfm の開始時実行コマンドボタン

     オブジェクト名: cmdStartup
     標題     : cmdStartup

      機能名    機能パラメータリスト
     1 表示
     2 手続き実行  cmdStartupClick
     3 なし
     4 なし

    ■グループ毎の連番を振る.tbl

    項目番号 項目名 データ型
    1     A    文字列        
    2     NO    長整数        
                    

    ■グループ毎の連番を振る.kev

    名札  メイン
     変数宣言 局所,整数 { &mMultiTblNum }



    手続き定義開始 cmdStartupClick( )
     変数宣言 自動,文字列{ &icon, &title = "cmdStartupClick( )", &msg }
     変数宣言 自動,整数 { &traceON }
     変数宣言 自動,整数 { &multiTblNum }

     &traceON = 0
     条件 ( &traceON ) トレース出力 &title + "を実行開始しました"

     編集表 &hwindow
     多重化
     &mMultiTblNum = #is表

     **if ( &mMultiTblNum )
     ** 終了 表 &multiTblNum
     **end
     編集表 &hwindow

     &msg =     "done"
     **メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = する

     条件 ( &traceON ) トレース出力 &title + "を実行終了しました"
    手続き定義終了

    手続き定義開始 フォーム::行挿入終了前(長整数 &明細番号,長整数 &モード,参照 長整数 &行挿入継続)
     変数宣言 自動,文字列{ &icon, &title = "フォーム::行挿入終了前( )", &msg }
     変数宣言 自動,文字列{ &objectName }
     変数宣言 自動,文字列{ &string }
     変数宣言 自動,文字列{ &expression }
     変数宣言 自動,文字列{ &WQ = #jis( #hex("22") ) }
     変数宣言 自動,整数 { &return }
     変数宣言 自動,長整数{ &NO }
     変数宣言 自動,整数 { &traceON }

     &traceON = 1
     条件 ( &traceON ) トレース出力 &title + "を実行開始しました"

     条件 ( &traceON ) トレース出力 _&モード
    ┌if ( &モード )
    │ &string = [A]
    │ 条件 ( &traceON ) トレース出力 _&string

    │ 編集表 &mMultiTblNum
    │ &expression = &WQ + &string + &WQ
    │ 解除 *
    │ 絞り込み [A]_&expression
    │┌if ( .not #eof )
    ││
    ││ 並べ替え { [NO]降順 }
    ││ ジャンプ 行番号 = 先頭
    ││ &NO = [NO]
    ││ 条件 ( &traceON ) トレース出力 _&NO
    ││
    ││ 編集表 &hwindow
    ││ 項目値代入 [NO] = &NO + 1
    ││ **&msg =     "[NO] = " + #str( [NO] )
    ││ **メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = する
    │├else
    ││
    ││ 編集表 &hwindow
    ││ 項目値代入 [NO] = 1
    │└end
    └end


     条件 ( &traceON ) トレース出力 &title + "を実行終了しました"
    手続き定義終了

[メール受信/OFF] 削除キー/

→Re[3]: 連番の自動付与 /tonta
 
前の記事(元になった記事) 次の記事(この記事の返信)
上記関連ツリー

Nomal 連番の自動付与 / tonta (22/09/01(Thu) 10:26) #13544
Nomal Re[1]: 連番の自動付与 / ななーし (22/09/01(Thu) 10:49) #13545
│└Nomal Re[2]: 連番の自動付与 / tonta (22/09/01(Thu) 11:40) #13547
│  └Nomal Re[3]: 連番の自動付与 / ななーし (22/09/01(Thu) 11:53) #13548
Nomal Re[1]: 連番の自動付与 / ONnoji (22/09/01(Thu) 11:39) #13546
│└Nomal Re[2]: 連番の自動付与 / ONnoji (22/09/01(Thu) 15:32) #13550
Nomal Re[1]: 連番の自動付与 / tonta (22/09/01(Thu) 17:18) #13551 解決済み!
│└Nomal 連番の自動付与 / ONnoji (22/09/01(Thu) 18:09) #13552 ←Now
│  └Nomal Re[3]: 連番の自動付与 / tonta (22/09/03(Sat) 08:51) #13554 解決済み!
│    └Nomal Re[4]: 連番の自動付与 / ONnoji (22/09/03(Sat) 10:36) #13555
Nomal Re[1]: 連番の自動付与 / natsu (22/09/03(Sat) 13:45) #13556
  └Nomal Re[2]: 連番の自動付与 / tonta (22/09/05(Mon) 10:25) #13557 解決済み!

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Mode/  Pass/

HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 ファイル一覧 検索 過去ログ

- Child Tree -
- Antispam Version -