PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WEBDEV 2024 → Remplissage de cases à cocher par programmation
Remplissage de cases à cocher par programmation
Iniciado por lotix, fev., 27 2004 1:08 PM - 1 resposta
Publicado em fevereiro, 27 2004 - 1:08 PM
Je cherche, à l'ouverture d'une page, à renseigner dynamiquement les noms
des options et les valeurs sélectionnées d'un groupe de cases à cocher. IE
de la même façon qu'une combo mémoire de type multi-sélection.

Par exemple, dans l'exmple ci-dessous, le CAS "COMBO" fonctionne correctement
mais pas le CAS "CASE" pour les combos mémoire, je fais :

////////////////////DEBUT PROC EXTERNE//////////////////////
PROCEDURE InitListe(strListe, strCle , strType sont des chaînes)
strSQL est une chaîne
i est un entier = 0
strSQL = "SELECT LST_IDCHOIX, LST_VALEUR FROM dbo.LISTESCHOIX WHERE LST_NOM
= '" + strCle + "' ORDER BY LST_RANG"
SQLExec(strSQL, "REQ")
TANTQUE SQLFetch("REQ") = 0 // Il y a encore une ligne à lire
i++
//Cas d'une comboBox
SELON strType

CAS "COMBO" :
SI i = 1 ALORS
ListeSupprimeTout(strListe)
FIN
// Récupérer les données
ListeAjoute(strListe, SQLLitCol("REQ", 2) + gLien(SQLLitCol("REQ", 1)))

//Cas de cases à cocher
CAS "CASE" :
// ListeAjoute(strListe, SQLLitCol("REQ", 2) + glien(SQLLitCol("REQ", 1)))
Liste
// {strListe}[i] = SQLLitCol("REQ", 2)
// {strListe}[i]..Valeur = SQLLitCol("REQ", 1)
FIN
FIN

SQLFerme("REQ")
////////////////////FIN PROC EXTERNE////////////////////////

///////////INITIALISATION DE PGSIGNALETIQUE/////////////////
InitListe("TYPEPRODUIT", "TYPEPRODUIT", "CASE")
///////////INITIALISATION DE PGSIGNALETIQUE/////////////////
Publicado em fevereiro, 27 2004 - 3:36 PM
Bonjoutr
fait de forme suivant qui ça marche


SI Fichier.rubriquefichier= Vrai ALORS
Nondetonchamp = Vrai
FIN




"lotix" <lotix@vs-plongee.com> escreveu na mensagem
news:403f2849$1@news.pcsoft.fr...


Je cherche, à l'ouverture d'une page, à renseigner dynamiquement les noms
des options et les valeurs sélectionnées d'un groupe de cases à cocher. IE
de la même façon qu'une combo mémoire de type multi-sélection.

Par exemple, dans l'exmple ci-dessous, le CAS "COMBO" fonctionne

correctement
mais pas le CAS "CASE" pour les combos mémoire, je fais :

////////////////////DEBUT PROC EXTERNE//////////////////////
PROCEDURE InitListe(strListe, strCle , strType sont des chaînes)
strSQL est une chaîne
i est un entier = 0
strSQL = "SELECT LST_IDCHOIX, LST_VALEUR FROM dbo.LISTESCHOIX WHERE

LST_NOM
= '" + strCle + "' ORDER BY LST_RANG"
SQLExec(strSQL, "REQ")
TANTQUE SQLFetch("REQ") = 0 // Il y a encore une ligne à lire
i++
//Cas d'une comboBox
SELON strType

CAS "COMBO" :
SI i = 1 ALORS
ListeSupprimeTout(strListe)
FIN
// Récupérer les données
ListeAjoute(strListe, SQLLitCol("REQ", 2) + gLien(SQLLitCol("REQ", 1)))

//Cas de cases à cocher
CAS "CASE" :
// ListeAjoute(strListe, SQLLitCol("REQ", 2) + glien(SQLLitCol("REQ", 1)))
Liste
// {strListe}[i] = SQLLitCol("REQ", 2)
// {strListe}[i]..Valeur = SQLLitCol("REQ", 1)
FIN
FIN

SQLFerme("REQ")
////////////////////FIN PROC EXTERNE////////////////////////

///////////INITIALISATION DE PGSIGNALETIQUE/////////////////
InitListe("TYPEPRODUIT", "TYPEPRODUIT", "CASE")
///////////INITIALISATION DE PGSIGNALETIQUE/////////////////