こてちゅさん、こんにちは。
日本語間違ってました。。。
さらに恥ずかしいです(笑)

＞んと、Messageオブジェクトに入った値を変数に渡してあげるのをしてなかったんですね。
これが言いたかったんです！

＞　なんか、読んだ瞬間に「Messageオブジェクトにわざわざスクリプトで入れてるのかな？」
や、そんな難しい事は出来ないです。。。

恥ずかしいついでにもう一つ質問させていただけますでしょうか・・・。
出来上がったと思っておりましたが、実はうまく行っておりませんでした。
変数に入った値を使って、Retrieve関数を使って検索するのですよね？
しかし、Messageにもちゃんと、商品IDは渡されているのに、検索をしてくれないのです。

同じようにRetrieve関数を使って、シングルラインエディットに入力した値でデータベースを検索する部分が有るので
そこのソースを貼らせて頂きます。
（また、同じ商品選択画面です・・・。）

long ll_row
long id
long row_no

/* 商品コード未入力の場合 */
If sle_shouhincode.text = \"\" Then

//データウィンドウを検索します。
ll_row = dw_shouhinsentaku.retrieve()

If ll_row < 0 Then
MessageBox(\"検索エラー\",\"検索時にエラーが発生しました。\")
Close(parent)
End if
Else
/* 商品コードが入っている場合 */
id = Long(Trim(sle_shouhincode.text))
          
ll_row = dw_shouhinsentaku.retrieve(id)
If ll_row < 0 Then
MessageBox(\"検索エラー\",\"検索時にエラーが発生しました。\")
Close(parent)
End if
End if

ここで、商品ID未入力時と、入力時、両方とも全件データが検索されて、タブラに並んでしまいます。
テキストに空白部分が有るからかと思い、Trim関数を使ってみましたが結果は同じでした。
これは、私のRetrieve関数に対する理解が間違っているのでしょうか・・・。

大変お手数ですが、またよろしくお願いいたします。。。。