過去の桐井戸端BBS (桐ver.9)
26689 フォームのヘッダ部分のグループ項目にデータを入力して検索をしたい おっさん 2004/06/14-14:00
よろしくご指導ください。
フォームからの検索処理です。

グループ項目に、[あ][い][う][え][お]
明細項目に[1][2][3][4][5][6]とあります。
グループ項目の[い][う]にデータを入力して
該当しているデータを表示したいのですが。

26695 Re:フォームのヘッダ部分の検索 うにん 2004/06/14-20:52
記事番号26689へのコメント
>グループ項目の[い][う]にデータを入力して
>該当しているデータを表示したいのですが。

グループ検索ではだめなんですか?

26696 Re:フォームのヘッダ部分の検索 佐田 守弘 2004/06/14-22:18
記事番号26689へのコメント
おっさんさん
グループ項目値を表示するテキストボックスの近くに、検索用のテキストボックスを作り、
ここに検索するキーワードを入力させます。
この検索用のテキストボックスのソース値は、適当な変数を設定します。

そしてこのテキストボックスのソース値更新イベントを使い、グループ検索を行えば良いでしょう。

佐田守弘(KS-00119)
26698 Re:フォームのヘッダ部分の検索 おっさん 2004/06/15-10:42
記事番号26695へのコメント
うにんさんありがとうございました。
そうですね。グループ検索でやればできますよね!!!
26699 Re:フォームのヘッダ部分の検索 ケント 2004/06/15-19:12
記事番号26689へのコメント
おっさんさん,うにんさん,佐田さん こんにちは

既に解決されたようで何よりですが、データを手入力しないでグループ指定の
プルダウンリスト(こんな言い方でいいのかな?)を使う方法で以下はどうでしょうか。

>グループ項目に、[あ][い][う][え][お]
>明細項目に[1][2][3][4][5][6]とあります。
>グループ項目の[い][う]にデータを入力して
>該当しているデータを表示したいのですが。

以前 佐田さんのコメントで
「グループオブジェクトのソースを計算式にすると項目値を表示する…」
というのが有り、それを参考に自分のフォームで活用しています。

基本的には下記の運用です。

オブジェクト操作 @tあ.グループソース = "[あ]"  /*[あ]のグループ化
オブジェクト操作 @tあ.グループソース = "([あ])"  /*[あ]のグループ解除

グループ化しているフォーム(複数のグループオブジェクト)で順番に
グループ指定を深化させたり特定のグループオブジェクトの指定に
利用しています。


フォームにコマンド釦を配置し、手続き実行します。

手続き定義開始 グループ指定()
 メソッド呼び出し @フォーム.描画禁止( 1 )
   if ( #EOF=1 ) /*終端行だとエラー
    ジャンプ 行番号 = 前行
   end
   メソッド呼び出し @フォーム.更新モード取得( &mode )
   if ( &mode>0 )  /*訂正入力モード時にグループ選択解除するとエラー
    メソッド呼び出し @フォーム.更新モード設定( 0 )
   end
   &あ=[あ] /*キャンセル時グループ保持のため
   &い=[い]
   &う=[う]
   &え=[え]
   &お=[お]
   グループ選択解除
   絞り込み解除 *
   オブジェクト操作 @tあ.グループソース = "([あ])" /*[あ]をグループ解除
   オブジェクト操作 @tい.グループソース = "[い]"  /*[い]のグループ化
   オブジェクト操作 @tう.グループソース = "([う])" /*[う]のグループ解除
   オブジェクト操作 @tえ.グループソース = "([え])" /*[え]のグループ解除
   オブジェクト操作 @tお.グループソース = "([お])" /*[お]のグループ解除
   グループ選択
   グループ検索 { [い]=&い }

長いので分割します。

26700 Re:フォームのヘッダ部分の検索 ケント 2004/06/15-19:14
記事番号26699へのコメント
(続き)
  *い指定の処理
   グループ指定 一覧,終了状態=&終了い
   if ( &終了い=-1 )               /*いでキャンセル
    グループ選択解除
    オブジェクト操作 @tあ.グループソース = "[あ]" /*[あ]のグループ化
    オブジェクト操作 @tう.グループソース = "[う]" /*[う]のグループ化
    オブジェクト操作 @tえ.グループソース = "[え]" /*[え]のグループ化
    オブジェクト操作 @tう.グループソース = "[お]" /*[お]のグループ化
    グループ選択
    グループ検索 { [あ]=&あ }
    グループ検索 { [う]=&う }
    グループ検索 { [え]=&え }
    グループ検索 { [お]=&お }
    メソッド呼び出し @フォーム.描画禁止( 0 )
    手続き終了
   end
   メソッド呼び出し @tい.グループソース値取得( &い指定,0 )
   オブジェクト操作 @tい.グループソース = "([い])" /*[い]のグループ解除
   グループ選択解除
   絞り込み [い]{ =&い指定 }, 文字比較方法=自動, 部分一致検索=しない        /*[い]を指定値で絞込み
   オブジェクト操作 @tう.グループソース = "[う]"  /*[う]のグループ化
   グループ選択解除
   グループ選択

  *う指定の処理
   グループ指定 一覧,終了状態=&終了う
   if ( &終了う=-1 )               /*うでキャンセル
    グループ選択解除
    絞込み解除 *
    オブジェクト操作 @tあ.グループソース = "[あ]" /*[あ]のグループ化
    オブジェクト操作 @tい.グループソース = "[い]" /*[い]のグループ化
    オブジェクト操作 @tえ.グループソース = "[え]" /*[え]のグループ化
    オブジェクト操作 @tお.グループソース = "[お]" /*[お]のグループ化
    グループ選択
    グループ検索 { [あ]=&あ }
    グループ検索 { [い]=&い }
    グループ検索 { [え]=&え }
    グループ検索 { [お]=&お }
    メソッド呼び出し @フォーム.描画禁止( 0 )
    手続き終了
   end
   メソッド呼び出し @tう.グループソース値取得( &う指定,0 )
   グループ選択解除
   絞り込み解除 *
   オブジェクト操作 @tあ.グループソース = "[あ]" /*[あ]のグループ化
   オブジェクト操作 @tい.グループソース = "[い]" /*[い]のグループ化
   オブジェクト操作 @tえ.グループソース = "[え]" /*[え]のグループ化
   オブジェクト操作 @tお.グループソース = "[お]" /*[お]のグループ化
   グループ選択
   グループ検索 { [い]=&い指定 }
   グループ検索 { [う]=&う指定 }
 メソッド呼び出し @フォーム.描画禁止( 0 )
手続き定義終了

実際のデータで[い][う]の組み合わせが少なければ一気に
[い][う]ともグループ化してもいいと思います。

項目名を変えたり不必要な処理を整理したので動作未確認です。
大体こういう流れということで…m(__)m

戻る