| 姫野 開さんこんにちは下記のように変更してはいかがでしょうか。
フォームに索引を指定すると、最初に開くときにそこに移動します。
表とフォームの切替では移動しないようです。
また索引指定項目にはグループ項目を全て含んでいないとフォームの
開始時に索引が使用されません。
名札 メイン
＊
手続き定義開始 ｺﾏﾝﾄﾞﾎﾞﾀﾝ_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
手続き定義終了
|
