| ■14523 / ) |
Re[1]: 連番を自動入力したい
|
□投稿者/ ONnoji -(2024/07/17(Wed) 11:52:32)
| 2024/07/17(Wed) 18:09:48 編集(投稿者)
> サンプルになるフォームを見せて頂きたいと思い投稿しました。よろしくお願いいたします。
> https://tayu.o0o0.jp/bbs/kiri/cbbs.cgi?mode=al2&namber=13544&rev=&no=0&KLOG=91
> 参考にしたURLです。
たぶん私でしょうね。
■13552 / inTopicNo.8) Re[2]: 連番の自動付与
□投稿者/ ONnoji -(2022/09/01(Thu) 18:09:57)
サンプルはすでに削除していますのでありません。ご了承ください。
参考にしたツリーの内容と、貴殿が行いたい内容が一致しているのか否か疑問です。
> という質問があり、［フォーム＋イベント処理］で解決されていたので参考にして作ったのですが動きません。
貴殿が作られたものを添付していただくと、この掲示板を見ている人から回答があると思いますよ。
ｐ．ｓ．
質問の際には、桐のバージョンを提示してください。桐9-2012？、桐9s？、桐10ｓ？、桐ｓ？
ｐ．ｐ．ｓ．
当方のサンプルの表の定義、フォームの定義、イベント処理の定義は、過去ログにすべて掲載されているので、
一覧表形式のフォームを作れば、そのまま動くはずです。
しかし、サンプルの一部分を切り取って使うという目的には適していませんよ。
以下に再掲載（■13552 Re[2]: 連番の自動付与 2022/09/01(Thu)）します。
■グループ毎の連番を振る.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 + "を実行終了しました"
手続き定義終了
|
|
