Combobox

[Guest |J @ n g o|]

Pessoal, por favor.

estou com seguinte problema:

armazeno em um combo informações como cod_local e des_local mas, estou com doficuldades de mostrar no combo o item de um determinado valor que e informado.

ex: 01 - Belém

02 - Sã Paulo

03 - Rio de Janeiro

04 - Minas Gerais

Todos estão carregados no combo mas, quero que o [selected] naquele cujo valor é [03] ou seja o valor informado.

<tr>

<td>Tipo Local:</td>

<td><input type="hidden" name="destipatd">

<select style="LEFT: 5px; WIDTH: 231px; TOP: 3px" name="codtipatd">

<%

if not m_rcsTipoLocalidadeAtd.EOF then

m_rcsTipoLocalidadeAtd.MoveFirst

do while not m_rcsTipoLocalidadeAtd.EOF

if not isdate(m_rcsTipoLocalidadeAtd.Fields("DataDtvTipoLocalidadeAtd").Value) then

%>

<option value="<%=m_rcsTipoLocalidadeAtd.Fields("TipoLocalidadeAtd").Value%>">

<%=m_rcsTipoLocalidadeAtd.Fields("DesLocalidadeAtd").Value%>

</option>

<%

end if

m_rcsTipoLocalidadeAtd.MoveNext

loop

else

%>

<option value="0" selected>Locais Atendimento não cadastrados</option>

<%

end if

%>

</select>

</td>

/tr>

[ursolouco]

Não entendi...

você quer recupera o value do Select ?

[Guest Guest]

Não entendi...

você quer recupera o value do Select ?

sim.

[Guest Guest]

e isso mesmo, quero recuperar o valor do select.

[ursolouco]

Normal!!!!

Basta dar um Request.Form("Nome_do_Select")

[Guest Guest]

na verdade o valor formecido vem de outro form(pagina). a linha marcada com "X" e a dita de estou quebrando a cabeça.

[ursolouco]

Deu nó!!!

Não entendi nada agora, mas veja se é isto ...

1ª Page - Recupera o valor de um Combo

2ª Page - Listar o conteudo em outro combo de acordo com o valor selecionado do combo da 1ª Page...

É isso aí ?

[Guest Guest]

<tr>
<td><input type="hidden" name="destipatd">
<select style="LEFT: 5px; WIDTH: 231px; TOP: 3px" name="codtipatd" onchange="frmTipo.destipatd.value=this.options[this.selectedIndex].text">
 <%
    
if not m_rcsTipoLocalidadeAtd.EOF then
m_rcsTipoLocalidadeAtd.MoveFirst
do while not m_rcsTipoLocalidadeAtd.EOF
if not isdate(m_rcsTipoLocalidadeAtd.Fields("DataDtvTipoLocalidadeAtd").Value) then
%>
<option value="<%=m_rcsTipoLocalidadeAtd.Fields("TipoLocalidadeAtd").Value%>"
"x------>"<%if m_rcsTipoLocalidadeAtd.Fields("TipoLocalidadeAtd")=Request.Form("codtipatd") then %> selected <% end if %>>
<%=m_rcsTipoLocalidadeAtd.Fields("DesLocalidadeAtd").Value%>
</option>
<%
end if
m_rcsTipoLocalidadeAtd.MoveNext
loop
else
%>	
<option value="0" selected>Locais Atendimento não cadastrados</option>
  <%
  end if
%>  
      
 </select>
</td>
</tr>

[dark0]

se cadastre no forum..

depois.. tente usar:

var = request("campo")

[Guest Guest]

cara, estou vindo de um outra pagina com o valor correspondente mas, a pagina onde este valor deve ser destacado no combo na esta funcionado pois, já tentei fazer um if quando ele carrega o combo na nova pagina (codigo acima linha "X------------- >") mas, aparentemente o valor não esta sendo passado.

[ursolouco]

<option value="
<%=m_rcsTipoLocalidadeAtd.Fields("TipoLocalidadeAtd").Value%>"
<%If m_rcsTipoLocalidadeAtd.Fields("TipoLocalidadeAtd")=Request.Form("codtipatd") then
   Response.Write("selected")
  End If 
%>><%=m_rcsTipoLocalidadeAtd.Fields("DesLocalidadeAtd").Value%></option>

[Guest Guest]

conseguir.!!!

o lance e o seguinte:

atribuir o valor em uma variavel(codtipo) depois a transformei em numero. cdbl(codtipo)

<% if m_rcsTipoLocalidadeAtd("TipoLocalidadeAtd")=cdbl(codtipo) then Response.Write("selected") end if %>>

[ursolouco]

Qualquer coisa, grita ai, mas antes, registre-se!!!