出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
コンボボックスのSelect命令について 　 ゆりさん [2002/08/30 17:39:25] [2589]
　 発言者により削除されました!! 北岳さん [2002/08/30 19:54:33] [2594]
　 　 発言者により削除されました!! 北岳さん [2002/08/30 19:59:12] [2595]
　 Re:コンボボックスのSelect命令について 　 かずみさん [2002/09/02 10:15:51] [2598]
　 　 Re:コンボボックスのSelect命令について 　 ゆりさん [2002/09/04 10:50:08] [2610]
[2589] コンボボックスのSelect命令について
投稿者：ゆりさん 2002/08/30 17:39:25
コンボボックスのSelect命令について教えて下さい。
検索画面を作成しているのですが、コンボボックスの値の
引継ぎができなくて、困っています。
画面上部で検索条件を指定し、検索検索ボタンをクリックすると、
その結果を画面下部にそのまま表形式で続けて表示するようなかたちの検索画面です。

画面のコンボボックスは２つ。
１つは検索したいもののジャンルを。
もう１つは、検索結果を何件ずつ表示するかという件数を指定するものです。

ジャンルのコンボボックスには、
データベースからの情報をセットしています。
（データのセットの方法については、このサイトの過去ログ
[2105] Re:SELECT命令について　を参照させてもらって行ないました。）


このような状態で、検索ボタンを押して実行すると、
検索実行後、選択したはずのジャンルのコンボボックスの中身が
”指定無し”に代わってしまいます。
(多分値がSelectされていないのだと思います。)

件数のコンボボックスは何度検索ボタンを押し直しても
選択された値をキチンとselectして表示できています。

････このような状態なのですが、どなたか教えてください。
よろしくおねがいします。m(__)m

***以下、コードの一部です**************************
Cnt = request("HCnt")
Jnr = request("Janru")
Session("JANRU") = Jnr
Session("Count") = Cnt

Response.Write "<select name=Janru>"

strSetOptionJanru = "<option value = 0 "
if Session.Contents("JANRU")="" then
strSetOptionJanru = strSetOptionJanru & "selected"
end if
Response.Write strSetOptionJanru & ">指定無し</option>"

Do Until ADORs.EOF
strSetOptionJanru = "<option value = " & ADORs("コード")
If Session.Contents("JANRU") = ADORs("コード") then
strSetOptionJanru = strSetOptionJanru & "selected "
End If
strSetOptionJanru = strSetOptionJanru & ADORs("表示名称") & "</option>"
Response.Write strSetOptionJanru
ADORs.MoveNext
Loop

Response.Write "</select><BR>"

' 表示件数
Response.Write "<select name=HCnt>"

strSetOptionCnt = "<option value = 10 "
if Session.Contents("Count")="0" then
strSetOptionCnt = strSetOptionCnt & "selected"
end if
Response.Write strSetOptionCnt & ">１０</option>"

strSetOptionCnt = "<option value = 50 "
if Session.Contents("Count")="50" then
strSetOptionCnt = strSetOptionCnt & "selected"
end if
Response.Write strSetOptionCnt & ">５０</option>"

Response.Write "</select>"

'検索開始ボタン
Response.Write "<INPUT TYPE=submit name=kensaku value=検索開始>"
Response.Write "<INPUT TYPE=hidden name=kensaku Value=1>"

以下、
Cnt = Request("HCnt") '表示件数
Jnr = Request("Janru") 'ジャンルコード
・・・と検索条件を受け取りSQL文を発行して検索を行なっています。

[2594] Re:コンボボックスのSelect命令について
投稿者：北岳さん 2002/08/30 19:54:33
発言者により削除されました!!
[2595] Re:コンボボックスのSelect命令について
投稿者：北岳さん 2002/08/30 19:59:12
発言者により削除されました!!
[2598] Re:コンボボックスのSelect命令について
投稿者：かずみさん 2002/09/02 10:15:51
> strSetOptionJanru = strSetOptionJanru & ADORs("表示名称") & "</option>"

optionタグが閉じられていないような気がしますが関係ないですかねぇ。

strSetOptionJanru = strSetOptionJanru & ">" & ADORs("表示名称") & "</option>"
[2610] Re:コンボボックスのSelect命令について
投稿者：ゆりさん 2002/09/04 10:50:08
> > strSetOptionJanru = strSetOptionJanru & ADORs("表示名称") & "</option>"
>
> optionタグが閉じられていないような気がしますが関係ないですかねぇ。
>
> strSetOptionJanru = strSetOptionJanru & ">" & ADORs("表示名称") & "</option>"
>

期日間際でごちゃごちゃしていて
遅くなりました。

結局optionのセット等は合っていたようです。
間違っていたのは
If Session.Contents("JANRU") = ADORs("コード") then
の部分で、ADORs("コード")の型が違っていたようで
If文の中を通っていなかったので、option selectedされて
いなかったようです。

if Cint(Jnr) = ADORs("コード") then　と変数を型変換したら
無事selecedされて指定できるようになりました。

どうもお騒がせいたしました。
＆レスをくれた方、ありがとうございました。m(＿)m

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ