過去の桐井戸端BBS (桐ver.9) |
21809 | イベントで絞り込みをしたい | 大田弘 | 2003/08/09-00:03 |
大変役立っています。 質問です。 売上管理を作っています。 売上.wfmで [分類C]を入力すると、次の項目は[品C]ですが、 イベントで分類Cを&分類Cに代入し、 商品.tblで&分類Cを絞り込みたいのですが どうすればできるでしょうか? お願いいたします。 | |||
21810 | 分類経由で商品マスターから取得する(イベント編) | 悲しげ | 2003/08/09-01:17 |
記事番号21809へのコメント どもっ、大田さん 「イベントで」と云うことは、単なるコマンドボタンや入力支援ボタン だけではなく、本格的に「kevを使って」と云う意味だと解します。 となると、簡単に語るのは難しいですが、要点だけを例示してみます。 1.[分類C]に相当するテキストオブジェクト「t分類C」(仮称)に、 例えば「ソース値更新」イベントを設定。その手続き定義の中味は &分類C=[分類C] フォーム呼び出し "商品.wfm" if(&実行リターン=1) 行訂正 [品C]=&品C,[品名]=&品名,[売価]=&売価,[数量]=1・・・ メソッド呼び出し @t数量.フォーカス設定() メソッド呼び出し @フォーム.更新モード設定(2) ・・・・・ end 2.商品.wfmは[分類C]がグループ項目になっているフォームとする。 「フォーム開始」イベントで グループ検索 {[分類C]=&分類C},終了状態=&OK として当該分類を初期表示させる(存在しなかった場合の対応は略)。 3.商品.wfmに「キーダウン」イベントを設定し if(&仮想キーコード=13) /*[Enter]キー*/ &処理中止=1,&実行リターン=1 &品C=[品C],&品名=[品名],&売価=[売価]・・・・・・ メソッド呼び出し @b閉じる.実行() else if(&仮想キーコード=27) /*[Esc]キー*/ &処理中止=1,&実行リターン=0 &品C="",&品名="",&売価=""・・・・・・ メソッド呼び出し @b閉じる.実行() ・・・・・ *閉じるボタンの機能名はもちろん「閉じる」 のような感じではいかがでしょう?(あくまで一例) | |||
21828 | 例を補完BBSに | 悲しげ | 2003/08/09-18:38 |
記事番号21810へのコメント 大田弘さんと未熟者さんへの共通例を こちらに 挙げておきました。 |