| 竜さんの見本を一部変更してアップします。Ver9−2006(V9-2004 sp3)です。 ドロップダウンでドラマ以外を選んでも、チェックボタンのチェックが入ったままですから、ちょっとこのままではおかしいと思いますけど、やりたいことはおよそこんな感じでいいんでしょうか(?)。
主な変更箇所 ・分類.wfm オブジェクトの属性(分類 フォーム)画面 イベント(タブ)のイベントファイル名:分類
ヘッダ部のグループオブジェクトをテキストオブジェクトに変更 このテキストオブジェクトのソース:&種類 イベント(タブ)のイベント:ソース値更新をチェック
入力支援ボタンの選択値リスト:&分類 リストの種別:ドロップダウンリスト
・分類.kev(イベントファイル) 名札 メイン var 文字列 { &種類 , &トグル } 表 "ジャンル.tbl" 解除 * 絞り込み [種類]<>"" 絞り込み 単一化={ [種類] } var 文字列 { &分類[&選択件数] } 検索 [種類]{ #progn( #setvar( "分類", #行番号, [種類] ) , #行番号 ) = &選択件数 } 終了 表 編集対象表 *
手続き定義開始 tジャンル::ソース値更新() method @フォーム.更新モード設定( 0 ) 絞り込み解除 * 絞り込み [種類]=&種類 手続き定義終了
手続き定義開始 トグルボタン_1::ソース値更新() method @フォーム.更新モード設定( 0 ) if( &トグル="ドラマ" ) 絞り込み解除 * 絞り込み [種類]=&トグル else 絞り込み解除 * end 手続き定義終了
試してみてください。アックン(=^・^=)
|