Bonjour,
j'aimerais savoir comment on fait pour remplir dynamiquement une liste déroulante!
J'ai déjà essayé je n'ai pas de bug, maisma liste ne ce remplit pas:
voici mon code:
si quelqu'un pouvait m'aiguiller
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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 '---------------------------------------------------------- '--- création de la requête pour remplir la dropdownliste '---------------------------------------------------------- function Societe(numero) set tblSoc=conn.Execute("SELECT * FROM LOCALISA WHERE PARENTCLEUNIK IS NOT NULL AND NOM NOT IN (SELECT TOP " & ucase(numero) & " NOM FROM LOCALISA WHERE PARENTCLEUNIK IS NOT NULL ORDER BY NOM) ORDER BY NOM") NomSociete=tblSoc("Nom") end function '---------------------------------------------------------- '--- Comptage du nombre de nom pour le classement de la societe '---------------------------------------------------------- function nbreSociete() set nbSociete = conn.Execute("SELECT DISTINCT count(NOM) AS NOMBRE FROM LOCALISA") nombre = nbSociete("NOMBRE") end function <th width="15%" align="left" class="Texte"> <select name="societe" title="Recherche sur la société"> <%if param_critere="societe" or param_critere="" then%> <option value="societe" selected>< Société ></option> <%else%> <option value="societe">< Société ></option> <%end if nbreLigne = nbreSociete() 'boucle pour remplir la liste déroulante do while i<>nbreLigne nom= Societe(i) if param_critere=nom then%> <option value='" <% =nom %>"' selected><% =nom %></option> <%else%> <option value='" <% =nom %>"'><% =nom %></option> <%end if loop%> </select> </th>
merci
Partager