コマンドボタンを作ってイベントで
　絞り込み　[投入年月]{*&STR*}という処理をするようにしました

&STRを入れるテキストボックスを作成して　そこにはソース値更新で同じように
イベントを組んであります

テキストボックスに　"2005/07"と入力し　リターンキーを２回押すと
絞込みをされて結果も正常に表示されるのですが

テキストボックスに　"2005/07"と入力し　絞込みのコマンドボタンを押しても
結果が表示されません

定義モードにしようと　メニューから　定義ボタンを押した時点で絞込みがされ
結果が表示されます。

ソース値更新とマウス左クリックの　イベント発生タイミングでイベントの動作が異なることってあるのでしょうか？

文字列を入力しただけでは、まだ確定してないので、
ソース値更新イベントが発生していません。
ですから、コマンドボタンをクリックしたら、
文字列を確定するようにしてやればいいわけです。
それにはメソッドを使います。

・コマンドボタンの左クリックイベント
　method  @ﾌｫｰﾑ.更新モード設定( 0 )　/* 表示モード（確定） */
　絞り込み　[投入年月]{*&STR*}

ところで、幅田さんの掲示板のときから言っていることなのですが、
スレを立てた人は閉じる責任があります。
閉じない時点で次の質問に移らないようにしましょう。

アックン(=^･^=)

これに関しては次のような話題も関係していますかね！？

<1669> 作品紹介／【多遊】
http://www2u.biglobe.ne.jp/~s_tanaka/cgi-bin/bbs/bbs.cgi?function=logview_html&no=34#1669

これに続く「Enterを押さなくても変数に代入」のスレッドです。
http://www2u.biglobe.ne.jp/~s_tanaka/cgi-bin/bbs/bbs.cgi?function=search&locate=all&mode=or&search_string=Enter%82%F0%89%9F%82%B3%82%C8%82%AD%82%C4%82%E0%95%CF%90%94%82%C9%91%E3%93%FC

コマンドボタンの設定で「自動」を「許可」にしてみるとか
コマンドボタンの最初に「表示」モードにする命令を入れるとか・・・
もちろん、他の方法で変数を確定する方法を入れても良いでしょうし？

ありがとうございます　できました
集計のところでも流用しているので　活用することができます＾＾

ところで絞込みをしたあとに
　method  @ﾌｫｰﾑ.更新モード設定( 0 )　/* 表示モード（確定） */
　絞り込み　[投入年月]{*&STR*}
　if( .not&選択件数 )
　　　確認　"該当データなし。"
　　　解除 1
　end
　書き出し　表, "当月進捗.tbl" {[管理担当],[支出額],[コード],[取引先],[内容],[注文年月日],[配送年月日],[検査合格年月日],[会社名],[地区],[備考（受渡状況）],[特記],[投入年月]}
　表　"月次進捗.tbl"　　行削除　*
　読み込み　表, "当月進捗.tbl" {[管理担当],[支出額],[コード],[取引先],[内容],[注文年月日],[配送年月日],[検査合格年月日],[会社名],[地区],[備考（受渡状況）],[特記],[投入年月]}
　　　確認　"検索完了しました。"


としてみましたが
確認メッセージが表示され　メッセージの”ＯＫ”ボタンをおすとまた書き出しが走ってしまいます
確認したあとに正常に終わるようにするには　なにか挿入するのでしょうか？

> > コマンドボタンの設定で「自動」を「許可」にしてみるとか
> > コマンドボタンの最初に「表示」モードにする命令を入れるとか・・・
> もちろん、他の方法で変数を確定する方法を入れても良いでしょうし？

本題を読み返すと
> コマンドボタンを作ってイベントで
と言う事で、コマンドボタンの「ﾏｳｽ左ｸﾘｯｸ()」か何かの実行だったのですかね。　(;_;)
つい「コマンドボタン」と書いてあったのでコマンドボタンそのものの機能か
手続き実行の事かと思ってしまった。　(^^;

# >絞込みのコマンドボタンを押しても
# と書いてあるけど、これってマウスボタンの事だけかな？
# コマンドボタンをマウスでは無く、スペースボタンで
# クリックして押した場合は機能しないのかな？
# 
# 桐って、どうしてマウスだろうがスペースだろうがショートカットキーだろう
# がボタンを押されて実行されるイベント(ｸﾘｯｸ)と言うものが無い！？
# って、いつもながら思ってしまう。

■No224に返信(葵さんの記事)

勘違いしておられますね。桐は葵さんの記述どおりに実行しています。

> 　if( .not&選択件数 )
> 　　　確認　"該当データなし。"
> 　　　解除 1
> 　end

これは絞り込みでデータがなかったの場合のみ確認ダイアログを出して絞り込み解除
するだけですね。

以後の記述は、絞り込みでデータがあった場合はそのまま、なかった場合は絞り込み
解除した状態で（＝むちゃくちゃですね）、書き出し・読み込み、確認ダイアログを
出せということになります。

絞り込み後、データありなしにより処理を分ける記述はこんな感じです。

絞り込み　なんとか
if(データなしを示す条件式）
　■データなしの場合の処理を記述
　絞り込み解除
else
　■else（つまりデータあり）の場合の処理を記述
　絞り込み解除
end

絞り込み解除はこのように2回書くか endの後ろに書くかです。絞り込んだ場合、す
べての場合において必ず絞り込み解除されるようにします。

この if〜end文以降の記述はすべての場合において実行されますのでお間違えなき
よう。（このルーチンから抜ける記述はもっと慣れてからにしたほうがいいです。）

葵さん
すみません。前回ぼくが書いた処理を大幅に訂正します。
ボタン側でテキストオブジェクトの更新モードを表示にしてやると、ソース値更新イベントが発生します。
結果として、ボタンとテキストの２回絞り込みが行われたり、動作が不定になります。（がびーん...
というわけで、今回はめっちゃ複雑になります。（ぐわーん...

手続き定義開始　b1::ﾏｳｽ左ｸﾘｯｸ・・
  var 文字列{ &focus }
  method @ﾌｫｰﾑ.フォーカスオブジェクト取得 ( &focus )
  method @ﾌｫｰﾑ.更新モード取得( &秒 )
  if( &秒=0 )
      call ABC()
  else if( &focus="ﾃｷｽﾄ_13" )　/* ←ここには絞り込み年月を入力するテキストオブジェクトの名前を設定してください。 */
    method  @ﾌｫｰﾑ.更新モード設定( 0 )
  else
    method  @ﾌｫｰﾑ.更新モード設定( 0 )
    call ABC()
  end
手続き定義終了

手続き定義開始　ﾃｷｽﾄ_13::ｿｰｽ値更新()
  call ABC()
手続き定義終了

proc ABC()
絞り込み　[投入年月]{*&STR*}
  if( .not&選択件数 )
　　　解除 1
　　　確認　"該当データなし。"
  else
/* ここに書き出しなどの処理を入れてください。　 */
　　　確認　"検索完了しました。
  end
end

・注意点
　proc ABC()
　：：
　end
の部分は、kevの一番下に書いてください。

> 確認したあとに正常に終わるようにするには　なにか挿入するのでしょうか？
else を入れるといいですよ。

  if( .not&選択件数 )
　　　解除 1
　　　確認　"該当データなし。"
  else
　　　：：
　　　確認　"検索完了しました。
  end

アックン(=^･^=)

ネットで見つけた　イベントをくっつけたりして自分なりにやっていましたが
みなさんのおかげで　できました

ありがとうございましたm(._.)m ペコッ