過去の桐井戸端BBS (桐ver.8)
12459 一括処理で検索してウインドウ会話したい。 森川 和行 2001/07/30-16:21
以下のような検索の一括処理で、検索後のウインドウ会話がうまくいきません。
教えて下さい。

********
*
* 手続き 検索
*
* データの検索
*
名札 検索作業

/* 検索表の指定 */

ウィンドウ作成 "検索.wfm",位置 = ( 50,50 ),ハンドル = &検索メニュー

繰り返し
ウィンドウ会話 &検索メニュー,ボタン = &ボタン

ケース開始
ケース ( &ボタン = 職員DB ) /* 職員DB検索 */
表 "職員.tbl",モード=専有,使用フォーム="職員.wfm"
検索 フォーム,[氏名],部分一致検索 = 先頭一致,文字比較方法 =
自動,終了状態 = &終了
ケース ( &ボタン = 旅費DB ) /* 旅費DB検索 */
表 "旅費.tbl",モード=専有,使用フォーム="旅費.wfm"
検索 フォーム,[学校名],部分一致検索 = 先頭一致,文字比較方法 =
自動,終了状態 = &終了
ケース ( &ボタン = 学校DB ) /* 学校DB検索 */
表 "学校.tbl",モード=専有,使用フォーム="学校.wfm"
検索 フォーム,[学校名],部分一致検索 = 先頭一致,文字比較方法 =
自動,終了状態 = &終了
ケース ( &ボタン = 終了 ) /* 中止 */
繰り返し中止
ケース終了

条件 ( &終了 = 0 ) 繰り返し中止

ケース開始
ケース ( .not #終端行 )
ウィンドウ会話
ケース その他
確認 "該当するデータはありません"
&ボタン = ""
ケース終了

条件 ( &ボタン = 終了 ) 繰り返し中止

繰り返し終了

ウィンドウ終了 &検索メニュー

ウィンドウ終了 &表

手続き終了

12464 Re:一括処理で検索してウインドウ会話したい。 佐田 守弘 2001/07/30-18:21
記事番号12459へのコメント
森川 和行さん
どこでエラーが発生しているのか書かれていないので、外しているかも知れませんが、

> ケース開始
> ケース ( .not #終端行 )
> ウィンドウ会話
の部分で、ウインドウ会話コマンドの実行対象となるウインドウハンドルの指定がない部分をチェックして下さい。
ウインドウ会話コマンドは、対象とするウインドウをハンドルで指定する必要があります。

佐田守弘(KS-00119)
12466 Re:一括処理で検索してウインドウ会話したい。 KH 2001/07/30-22:00
記事番号12459へのコメント
森川 和行さん、今晩は。

> 以下のような検索の一括処理で、検索後のウインドウ会話がうまくいきません。
> 教えて下さい。

どのようなエラーなのかわかりませんが、フォームのオブジェクト名を取得する時がおかしいのではありませんか?

 一例として、以下のように変更しないとエラーだと思います。

 ケース ( &ボタン = 職員DB ) → ケース ( &ボタン ="職員DB" )

ここのbbsでは、皆さんイベント派が多く、ウィンドウ会話コマンドはあまり使われていないようですが、
あ、使っているひとがいるんだって、ホッとします。
余計な話になりましたが、本題へ戻ります。
使い方の好みの問題ですが、あまりにも複雑に見えたので、以下に簡単な構造だけお節介にも書いてみました。
でしゃばってゴメンなさい。

  ウィンドウ作成 ・・・
  繰り返し
      ウィンドウ会話 ・・・
      条件(&ボタン="終了" .or &終了=0) 繰り返し中止      
      ケース開始
         ケース ( &ボタン ="処理1" )
             手続き実行 検索処理1
         ケース ( &ボタン ="処理2" )
             手続き実行 検索処理2
         ケース ( &ボタン ="処理3"
             手続き実行 検索処理3
         ・・・
    ケース終了
  繰り返し終了
  ウィンドウ終了 ・・・
  終了 ・・・

名札 検索処理1
  ・・・
手続き終了
  ・・・

12479 Re:一括処理で検索してウインドウ会話したい。 森川 和行 2001/07/31-12:21
記事番号12459へのコメント
ウインドウ会話でなく、フォーム形式編集を使ったらうまくいきました。
イベントもこれからやってみようと思います。
ありがとうございました。

戻る