| 2024/12/27(Fri) 20:57:02 編集(投稿者) 2024/12/27(Fri) 20:56:05 編集(投稿者) 2024/12/27(Fri) 20:26:42 編集(投稿者)
もしかしたら こういうこと? かな?
桐9sで作成しました サンプルです。 イベントは フォームを使ったプログラムになります
今回は 表のみで運用というケースで 一括で作りました 本表データ表.cmd をクリックしてみてください
違ったらごめんなさい
桐V9 2012 で読めると思います。(かな?)
読めなかったら 以下を コピペで コマンド作ってください。
変数宣言 文字列,{&氏名,&備考}
キー入力 プロンプト="年は?",モード=無,初=#年(#年月日),上書き=す,終了状態=&秒,&年
if (&年>0)
表 "ワーク表"
表 "本表" * 行削除 *
編集表 "ワーク表"
繰り返し &月=1,12,1 ジャンプ 行番号=t
繰り返し (.not #終端行)
&氏名=[氏名],&備考=[備考]
編集表 "本表"
行追加 [年月]=&年*100+&月,[氏名]=&氏名,[備考]=&備考 表表示
編集表 "ワーク表" ジャンプ 行番号=+1
繰り返し終了
繰り返し終了
表
end
ここまで。
なお 本表は [年月](数値),[氏名](文字列),[備考](文字列) ワーク表は [氏名](文字列),[備考](文字列)
を定義しています。
フォームに 更新ボタン とか設けて イベントでやったほうがホントはいいです
|