Discussion :

[zorba49]

bonjour,
Tout d'abord je ne sais ou mettre ma question donc je tente ici

j'ai 1 fonction qui me renvoit 1 liste deroulante contenant des noms de secteurs
cette fonction est remplit par 1 fonction listesecteur avec listesecteur(0,i) qui est le nom et listesecteur(1,i) qui est le code

mon probleme c'est que qd je clic sur ma liste, le nom selectionné ne s'affiche pas

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function ListederoulanteSecteur(code_secteur)
Dim resultat,secteur,i
 
resultat= "<select name=""choix_secteur"">" & vbcrlf &_
              "<option value=""""></option>" & vbcrlf 
secteur=listesecteur()
 
For i=0 to UBound(secteur,2)
resultat=resultat & "<option value=""" & secteur(1,i) & """"
If secteur(1,i)= code_secteur Then
resultat=resultat & " Selected"
End If
resultat = resultat & ">" & secteur(0,i) & "</option>" & vbCrLf 
Next
 
resultat=resultat & "</select>"
Listederoulantesecteur=resultat
 
End Function

pourtant code_secteur en argument renvoit bien le code du secteur car qd je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"<option value="""">" & code_secteur &"</option>"

j'ai bien le code qui s'affiche en fonction du secteur selectionné

et mon if fonctionne bien car si je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If secteur(1,i)= 5 Then

j'ai bien le nom du secteur 5 qui s'affiche

je comprend pas ce qui se passe
vous avez 1 idée?
merci

[TekP@f]

Slt,

Zarb ton problème !

Tu pourrais donner le code html qui appelle ta fonction, ça vient peut-être de là. En tout cas, je ne vois pas d'erreur dans la fonction.

[zorba49]

Ben j'appelle ma fonction juste comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
1) Choisir un secteur :
<%=ListederoulanteSecteur(request.Form("choix_secteur"))%>

[zorba49]

franchement c'est a rien n'y comprendre!!!!
si je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function ListederoulanteSecteur(code_secteur) 
...
If secteur(1,i)= code_secteur Then 
resultat=resultat & " Selected" 
End If 
resultat = resultat & ">" & secteur(0,i) & "</option>" & vbCrLf 
Next 
...
End Function

avec l'appel comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<%=ListederoulanteSecteur(request.Form("choix_secteur"))%>

et request.Form("choix_secteur") étant bien egal a 15 j'ai rien ds ma liste déroulante

alors qui si je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function ListederoulanteSecteur() 
...
If secteur(1,i)= 15 Then 
resultat=resultat & " Selected" 
End If 
resultat = resultat & ">" & secteur(0,i) & "</option>" & vbCrLf 
Next 
...
End Function

j'ai bien le nom du secteur choisi qui s'affiche !!!!

pourtant ca reviens au meme non???????????

j'y pige plus rien!!!!!!!
HELP!!!!!!!!!!!!

[pc75]

Bonjour,

Juste une idée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If cInt(secteur(1,i)) = cInt(code_secteur) Then

[zorba49]

j'ai déja essayé, je pensais aussi que ca marcherai mais tjs idem!!!
je me suis débrouillé autrement mais j'ai bidouillé (pas tip top) mais c'est en attendant que j'y revienne dessus car la je sature
merci qd meme