| 姫野 開さんこんにちは下記のように変更してはいかがでしょうか。 フォームに索引を指定すると、最初に開くときにそこに移動します。 表とフォームの切替では移動しないようです。 また索引指定項目にはグループ項目を全て含んでいないとフォームの 開始時に索引が使用されません。
名札 メイン
*
手続き定義開始 コマンドボタン_18::マウス左クリック(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ,参照 長整数 &処理中止) 変数宣言 整数{&I年,&I月} if (#総件数<1) 確認 "処理対象行がありません" else if (#総件数>0) 条件 ( #EOF=1 ) ジャンプ 行番号 = 前行 行マーク定義 2 method @グループ_13.グループソース値取得(&I年,0) method @グループ_14.グループソース値取得(&I月,0) &I年=#cond(&I月>11,&I年+1,1,&I年),&I月=#mod(&I月,12)+1 グループ選択解除 /* 新規グループ追加前に新規グループと同じものがあるか検索 */ 解除 * 絞り込み [G月] {[G年度]=&I年,[G月]=&I月} if ( #総件数>0 ) /* 同じ月のデータがある場合 */ 解除 * ジャンプ 行マーク=2 グループ選択 確認 "既に同じ"+#str(&I年)+"年"+#str(&I月)+"月グループが存在しますので処理を中止します。" else /* グループが存在していない場合 */ 解除 * ジャンプ 行マーク=2 グループ選択 書き出し条件登録 表,条件名="今月複写","質問3書き出し.tbl",ファイル名変更=しない\ ,{[担当者],[G年度],[G月],[品番],[品名],[月],[日],[価格]} 書き出し 表,条件名="今月複写" グループ値訂正 {[G年度]=&I年,[G月]=&I月}, 終了状態=&秒 グループ選択解除 /* ↑は今月を翌月の日付に訂正しています */ ジャンプ 行番号=終端 読み込み条件登録 表,条件名="先月読み込み","質問3書き出し.tbl",ファイル名変更=しない\ ,{[担当者][担当者],[G年度][G年度],[G月][G月],[品番][品番],[品名][品名]\ ,[月][月],[日][日],[価格][価格]},編集表=する 読み込み 表,条件名="先月読み込み" グループ選択 end end 手続き定義終了
|