出来るのだＡＳＰＱ＆Ａ掲示板（過去ＬＯＧ）

出来るのだＡＳＰＱ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
【PR】パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。

Topに戻る

掲示板に戻る

検索

削除

管理者

[276] Re:コンボBOXの値を次の画面へ引継ぎたい

コメントする

投稿者：rieさん 01/06/13 14:45:45

> > コンボboxの値を変更した時点ではRequest.QueryString("SELECT")には値が入っています。
> > いざ検索ボタンを押した時にRequest.QueryString("SELECT")に値が引き継がれていない事が確認できました。
> >
> > コンボboxの値を変更した時にlocation=this.options[this.selectedIndex].valueとやっているのですが、これが関係あるのでしょうか？
>
> えっとですね、処理が今一つ見えていないのですが、検索ボタンと、OPTION の
> フォームが別になっているのでは、無いでしょうか？
>
> 出来ればＨＴＭＬソースそのままあれば回答しやすいです

検索ボタンとoptionのフォームは同じにしています。
わかりにくいかもしれませんが、以下にコードを書きます。

<FORM name="MITSUMORI" method="post" action="xxx.asp">
<INPUT height="27" type="submit" name="ACTION" value="検索">
<INPUT height="27" type="submit" name="ACTION" value="登録">
<FONT color=Tomato size=+1><%=DmStrMessage%><BR></FONT>
<BR><BR>

<TR>
<TD height="26" align=right><NOBR>カート：</TD>
<SELECT name="CART_NO"onChange="location=this.optionsthis.selectedIndex].value">
<%
DmStrSQL = "SELECT CART_NO, CART_NAME "・・・・・・
dbからデータを取得

If DmOraDs.RecordCount > 0 Then
For i=0 To DmOraDs.RecordCount
If DmOraDs("CART_NO") = DmStrCart_No Then
%>
<OPTION value="xxx.asp?SELECT=<%=DmOraDs("CART_NO") & ":" & DmOraDs("CART_NAME")%>" selected><%=DmOraDs("CART_NO") & ":" & DmOraDs("CART_NAME")%></OPTION>
<%
Else
%>
<OPTION value="xxx.asp?SELECT=<%=DmOraDs("CART_NO") & ":" & DmOraDs("CART_NAME")%>"><%=DmOraDs("CART_NO") & ":" & DmOraDs("CART_NAME")%></OPTION>
<%
End If
DmOraDs.DbMoveNext
If DmOraDs.EOF Then
Exit For
End If
Next
End If
Set DmOraDs=Nothing
Set PbOraDB=Nothing
%>
</SELECT>
</TR>
</FORM>

などとしています。
私もコンボboxを使うのが初めてなので、トンチンカンな事をやっているかもしれませんので
ご指摘をお願いします。

削除する