(現在 過去ログ19 を表示中)

HOME HELP 新規作成 新着記事 トピック表示 ファイル一覧 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■2834 / inTopicNo.1) 　イベントでの遅延
  ▼■
□投稿者/ ひろ -(2007/08/10(Fri) 10:26:02)
    お世話になります。
    桐９−２００６です。
    イベントで集計処理をして
    表からエクセル書き出しをしたのち表を閉じているのですが、

    ほかのプログラムがビジー状態のため、この作業を完了できません。
    ［切り替え］を選んで、ビジー状態のプログラムに移り、問題を解消して下さい。
    ［切り替え(S)］［再試行(R)］［キャンセル(C)］←キャンセルは使用不可

    のメッセージが出ます。

    このメッセージが出るＰＣの処理能力に問題が有るようで、他のＰＣで
    同じ作業をしてもメッセージは出ません。ちなみに再試行で通常に終了します。

    そこでエクセル書き出しをしたあとすこし待ってから表を閉じたいのですが、
    遅延コマンドはイベントでの使用は不可となっています。
    イベント処理の中で遅延処理をするにはどのようにすればよいのでしょうか。
    よろしくお願いします。
引用返信 [メール受信/OFF] 削除キー/
■2835 / inTopicNo.2) 　Re[1]: イベントでの遅延
□投稿者/ アックン -(2007/08/11(Sat) 13:43:27)
    ひろさん、こんにちは。
    タイマーイベントを使ってみてはどうでしょう。

    ・フォーム定義　イベント(タブ)
    　　タイマー1：　チェックなし。
    　タイマー値1：　0 のまま。

    ・kev
    proc 遅延()
    　編集表　"B.tbl"　←書き出したい表
    　 ：　 　　　　　　←集計処理
    　オブジェクト操作 @ﾌｫｰﾑ.ﾀｲﾏｰ1 　= "1"　 ←タイマー１をONにします。
    　オブジェクト操作 @ﾌｫｰﾑ.ﾀｲﾏｰ値1 = "5.00"　←この値を変えて試してください。
    　書き出し　・・
    end

    手続き定義開始　ﾌｫｰﾑ::ﾀｲﾏｰ1()
    　編集表　"B.tbl"
    　終了　表　編集対象表
    　オブジェクト操作 @ﾌｫｰﾑ.ﾀｲﾏｰ1 　= "0"　←OFFにします。
    　オブジェクト操作 @ﾌｫｰﾑ.ﾀｲﾏｰ値1 = "0"　←0秒に戻します。
    　編集表　"A.tbl" 　←フォームの編集対象表があれば記述します。
    手続き定義終了

    速いマシンと遅いマシン別にフラグを立てておいて、if文で処理すればいいと思いますけど、LANの場合は他の人に聞いてください。

    タイマーイベントが発生するタイミングは、トレース出力ウィンドウで確認できます。（ kev定義画面　メニュー「表示」→「トレース出力ウィンドウ」「トレース出力ウィンドウ設定」 ）
    アックン(=^･^=)
引用返信 [メール受信/OFF] 削除キー/
■2836 / inTopicNo.3) 　Re[1]: イベントでの遅延
□投稿者/ 今村　誠 -(2007/08/12(Sun) 09:37:20)
引用返信 [メール受信/OFF] 削除キー/
■2839 / inTopicNo.4) 　Re[2]: イベントでの遅延
□投稿者/ ひろ -(2007/08/13(Mon) 10:56:57)
    アックンさん、今村さんいつもありがとうございます。
    今村さんから紹介頂いた過去の桐井戸端ＢＢＳより
    悲しげさんの手法を参考にさせて頂き解決しました。
    今後ともよろしくお願いします。
解決済み!
引用返信 [メール受信/OFF] 削除キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

Mode/　 Pass/

HOME HELP 新規作成 新着記事 トピック表示 ファイル一覧 検索 過去ログ

- Child Tree -
- Antispam Version -