| ひろさん、こんにちは。
タイマーイベントを使ってみてはどうでしょう。
・フォーム定義 イベント(タブ)
タイマー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定義画面 メニュー「表示」→「トレース出力ウィンドウ」「トレース出力ウィンドウ設定」 ）
アックン(=^･^=)
|
