過去の桐井戸端BBS (桐ver.8)
3070 「表示」F4ボタンをおすと必要な項目のみ表示する 123 1999/10/30-16:54
入力が終了し、「表示」F4ボタンをおすと、
必要な項目のみ表示する。

たとえば[得意c],[品番]などは非表示にし
[得意先名],[品名],[数量],[単価],[販売金額],[備考]などは表示する。
といった具合なんですが、

どなたかよろしくご指導ください。

3072 Re: cheese 1999/10/31-17:23
記事番号3070へのコメント
123さん、こんにちわ

これも考え方は前回と同様です。

行挿入終了、行訂正終了イベントで
オブジェクト操作...画面表示=...
とすればテキストオブジェクトを非表示にできます。
とりあえず、テキストがふたつあれば
オブジェクト操作コマンドを2行使えばいいですが、
多い場合は、ファミリーでまとめて操作することもできます。
この辺は、V8のヘルプでご確認下さい。

3082 Re:なかなかうまく動作しません 123 1999/11/1-12:14
記事番号3072へのコメント
どうもです。
cheeseさん、なかなかうまく動作しません。
最初に質問した分も含めて、下記のようにしました。
でも希望な用に動作しません。よろしくご指導ください。

手続き定義開始  tC::ソース値更新()
ケース開始
  ケース{[C]+"1"}
    メゾット呼び出し@tC.フォーカス設定()
  ケース{[D]+"2"}
    メゾット呼び出し@tD.フォーカス設定()
ケース終了
手続き定義終了

手続き定義開始  tB::ソース値更新()
ケース開始
  ケース{[B]+"123"}
    オブジェクト操作 @tD.画面表示=0
    オブジェクト操作 @tD.画面表示=0
  ケース{[B]+"456"}
    オブジェクト操作 @tD.画面表示=1
    オブジェクト操作 @tD.画面表示=1
ケース終了
手続き定義終了

手続き定義開始  フォーム::レコード移動(長整数 &行番号 長整数 &総件数長整数 &明細番号)
   オブジェクト操作 @tD.画面表示=1
   オブジェクト操作 @tE.画面表示=1
手続き定義終了

手続き定義開始  フォーム::行訂正終了(長整数 &明細番号 長整数 &モード)
   オブジェクト操作 @tF.画面表示=0
   オブジェクト操作 @tH.画面表示=0
手続き定義終了

手続き定義開始  フォーム::行挿入終了(長整数 &明細番号 長整数 &モード)
   オブジェクト操作 @tF.画面表示=0
   オブジェクト操作 @tH.画面表示=0
手続き定義終了

以上のようにしました。
よろしくご指導ください。



3085 Re:なかなかうまく動作しません cheese 1999/11/1-13:40
記事番号3082へのコメント
確認しました。

>手続き定義開始  tC::ソース値更新()
> ケース開始
>  ケース{[C]+"1"}
>    メゾット呼び出し@tC.フォーカス設定()
>  ケース{[D]+"2"}
>    メゾット呼び出し@tD.フォーカス設定()
> ケース終了
>手続き定義終了

{[C]+"1"}は([C]="1")の書き違いでしょうか?
{}はエラーになると思いますけど....
また、[C]+"1"は計算できないと思います。

>手続き定義開始  tB::ソース値更新()
> ケース開始
>  ケース{[B]+"123"}
>    オブジェクト操作 @tD.画面表示=0
>    オブジェクト操作 @tD.画面表示=0
>  ケース{[B]+"456"}
>    オブジェクト操作 @tD.画面表示=1
>    オブジェクト操作 @tD.画面表示=1
> ケース終了
>手続き定義終了

同じように {[B]+"123"}は([B]="123")の書き違いでしょうか?
()であれば動くはずです。また全角、半角も確認してください。

>手続き定義開始  フォーム::レコード移動(長整数 &行番号 長整数 &総件数
>長整数 &明細番号)
>    オブジェクト操作 @tD.画面表示=1
>    オブジェクト操作 @tE.画面表示=1
>手続き定義終了
>
>手続き定義開始  フォーム::行訂正終了(長整数 &明細番号 長整数 &モード)
>    オブジェクト操作 @tF.画面表示=0
>    オブジェクト操作 @tH.画面表示=0
>手続き定義終了
>
>手続き定義開始  フォーム::行挿入終了(長整数 &明細番号 長整数 &モード)
>    オブジェクト操作 @tF.画面表示=0
>    オブジェクト操作 @tH.画面表示=0
>手続き定義終了
>
これは間違いないようですが......

最終確認はフォームのオブジェクト属性でイベントタブをクリックして
レコード移動、行訂正終了、行挿入終了にチェックがついているかどうかです。

3088 Re:なかなかうまく動作しません 123 1999/11/1-14:18
記事番号3085へのコメント
どうもです。cheeseさん
動作しました。
ご指導ありがとうございます。


3090 Re: たが 1999/11/1-16:25
記事番号3070へのコメント
>たとえば[得意c],[品番]などは非表示にし
>[得意先名],[品名],[数量],[単価],[販売金額],[備考]などは表示する。
>といった具合なんですが、

動作は完璧にクリアーしました。が
カーソルの位置で少々・・・・!
次に明細追加をしたときに、カーソルの位置が、備考ならば、
全て表示して、入力(明細追加)ができます。
しかし、品名にカーソルがあると、不必要な項目は非表示したまま
明細追加になります。
これって、直りますかね?

戻る