■14364 / 2階層) |
期間絞込でのエラー時対応について
|
□投稿者/ AK -(2024/05/21(Tue) 19:12:34)
| > 編集表 "日付絞り込み.TBX" > 終了 表 編集対象表 > > なんてやるとエラーでしょ。 > > KU1066:イベントハンドラでは表示中の表を閉じることはできません > > ※お前は既に日付絞り込み.wfxで開いている。 > > そちらでは、エラーになりませんでしたか???
ONnojiさん ジェダイの桐 さん
大変失礼しました。 私の確認ミスで余計混乱させるコードを掲載してしまいました。 ジェダイの桐さんの質問をよくよく読んでいないままコードを修正してしまい、かつ、実行していませんでした。
ONnojiさんのおっしゃる通りです。 上記のコードはもちろん不要であり、私の誤りです。
訂正してお詫びいたします。
正しくは、以下のとおりです。
※ ONnojiさんすいません、コードをコピーして使わせていただきます。
名札 メイン 変数宣言 局所, 日時 { &mRefinementStartDate, &mRefinementEndDate }
表 "日付絞り込み.TBX" &mRefinementStartDate = [日付] &mRefinementEndDate = [日付] *
手続き定義開始 cmd絞込開始Click()
変数宣言 自動, 数値 { &ans } 変数宣言 自動, 文字列 { &title = "cmd絞込開始Click()", &msg }
&msg = "絞り込み開始日 と 絞り込み終了日 が選択されました。" &msg = &msg + "\n日付 " + #文字列( &mRefinementStartDate ) + " 〜 " + #文字列( &mRefinementEndDate ) + "を絞り込みますか?" メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 2, 制御文字展開 = する, &ans
┌if( &ans = 1 ) │ │ 表 "日付絞り込み.TBX" │ 解除 * │ 絞り込み [日付] { &mRefinementStartDate<=[]<=&mRefinementEndDate } │ │┌if( .not #eof ) ││ ││ &msg = "絞り込み完了しました" ││ メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = しない ││ メソッド呼び出し 戻り値= &実行リターン, @cmd閉じる. 実行() ││ │├else ││ ││ &msg = "該当日が見当たりません" ││ メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = しない ││ │└end │ │ ├else │ │ &msg = "キャンセルしました" │ メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = しない │ └end
手続き定義終了
|
|