過去の桐井戸端BBS (桐ver.8)
5789 フォームと一括処理がうまく連動しません 高木一美 2000/04/28-21:59
いつも御世話になります。

名札 撮影データ編集
   ファイル名入力 初期値="K*.TBL",プロンプト="編集するテーブルを
                         選んでください"
   条件(&KTBL="")手続き終了
   表 &KTBL、使用フォーム="K*SYU.WFM"
   ウィンドウ作成 フォーム,位置=(1,1)ハンドル=&表
   ウィンドウ会話 &表、更新=許可,ボタン=&ボタン
   繰り返し
   ケース開始
     ケース(&ボタン=検索)
      絞り込み フォーム,[商品CD],文字比較方法自動,終了状態=&終
                                 了
      条件(.NOT #終端行) ウインドウ会話 &表,更新=許可,初期項
                     目=[撮影日],ボタン=&ボタン
      条件(&選択件数=0) メッセージボックス,"☆★☆ 未 登 録
                     ☆★☆",ボタン指定=1,&F終了
      絞込み解除 *
      条件(&終了=0)繰り返し中止
     ケース(&ボタン=終了)
      ウインドウ終了 &表
      終了 表 編集対象表
   ケース終了
   繰り返し終了
   手続き終了


             撮影データ登録
―――――――――――――――――――――――――――――――――
 商品CD I          I撮影日I
―――――――――――――――――――――――――――――――――
 部門   I          I包  I
―――――――――――――――――――――――――――――――――
 商品名  I          I盛  I
―――――――――――――――――――――――――――――――――
                ―――― ――――
                I 検索 I I 終了 I
                ―――― ――――

検索ボタンを押すとテーブルの商品CDから絞り込んで撮影日など入力でき、
終了ボタンを押すとテーブルとフォームが閉じるという処理にしたいのですが、
うまくいきません。
終了がうまくいきません。

どこがおかしいか、わかれば教えて下さい。

他にもよく似たもので分からないのがあるのでまたお聞きするかも知れません。

5807 Re:フォームと一括処理がうまく連動しません 高木一美 2000/05/01-09:06
記事番号5789へのコメント
追加ですが、検索と終了はコマンドボタンで、
どちらも、「一括処理に戻る」にしています。
5940 Re:動作しなかったらごめんなさい 今村 誠 2000/05/07-23:42
記事番号5807へのコメント
名札 撮影データ編集
 ファイル名入力 初期値="K*.TBL",プロンプト="編集するテーブルを
                         選んでください"
 条件(&KTBL="")手続き終了
 表 &KTBL、使用フォーム="K*SYU.WFM"
 ウィンドウ作成 フォーム,位置=(1,1)ハンドル=&表
繰り返し
 ウィンドウ会話 &表、更新=許可,ボタン=&ボタン
  ケース開始
   ケース(&ボタン=検索)
    絞り込み フォーム,[商品CD],文字比較方法自動,終了状態=&終了
     条件 (&終了=0) ケース中止
     条件 (.NOT #終端行)\
       ウインドウ会話 &表,更新=許可,初期項目=[撮影日],ボタン=&ボタン
     条件 (&選択件数=0) \
  メッセージボックス,"☆★☆ 未 登 録 ☆★☆",ボタン指定=1,&F終了
      絞込み解除 *
   ケース(&ボタン=終了)
繰り返し中止 
   ケース終了
繰り返し終了
    終了 表 編集対象表
    ウインドウ終了 &表
 手続き終了

フォーム会話でケース文はしたことがないので動作未確認ですが
v8の表編集での繰り返しとケースの場合、動作すると思います。
動作しなかったらごめんなさい。

5957 ありがとうございます 高木一美 2000/05/08-23:05
記事番号5940へのコメント
今村 誠さんありがとうございます。

ずっとお返事がなかったのであきらめかけていたのですが、
たいへん参考になりました。

もうすこし、改良の余地があるようですが、
大分よくなりました。

詳細は、またお知らせします。

戻る