WDForge.org - Forums

[Zones répétées] Liste inutilisable

Sujet: [Zones répétées] Liste inutilisable
par bofkill sur 9/6/2006 0:38:35

Bonjour à tous !

Je vous explique mon problème :

J'ai une zone répétée, alimentée par une requete sur une base MySQL.

La zone est basée sur les fichiers :

categorie(idCat, libelle)
application(idApp, nom, version, #idCat, description, auteur, screenshot, fichier, nbDownloads)

Elle ressemble à ca :

La liste dans la partie application est alimentée par une requête qui récupère toutes les applications suivant la catégorie sélectionnée.

Hors, dans une zone répétée, le champ liste est considéré comme un objet interne.. En gros, je ne peux y ajouter aucune valeur. Si j'utilise la fonction ListeAjoute(...), j'ai une erreur.

PROCEDURE afficheCategories(nNumPage est un entier, nNbParPage est un entier)

sReq est une chaîne
sNomReq est une chaîne = "requeteCategories"
sNomReq2 est une chaîne = "requeteApplicationsDansCategorie"
bRes est un booléen
nNbNews est un entier
nNbPages est un entier
i est un entier = 0

initBarreNav("SELECT COUNT(*) FROM categorie", nNumPage)

SI connecteBdd()  ALORS
	sReq = "SELECT * FROM categorie ORDER BY libCat LIMIT " + ((nNumPage-1)*ListeSelect(cmb_nbParPage)) + "," + nNbParPage
	bRes = SQLExec(sReq, sNomReq)
	SI  PAS bRes ALORS
		SQLInfoGene()
		Erreur("Erreur lors de l'exécution de la requête.","Détail de l'erreur : ", " ", SQL.MesErreur)
	SINON
		MaFenêtre..Plan = 3
		grp_controles..Visible = Vrai
		ZoneRépétéeSupprimeTout(zr_categ)
		i=0
		TANTQUE SQLAvance(sNomReq) = 0
			i++
			
			ZoneRépétéeAjouteLigne(zr_categ)
			zr_categ[i].sai_idCat = SQLLitCol(sNomReq,1)
			zr_categ[i].sai_libCat = SQLLitCol(sNomReq,2)
			
			sReq = "SELECT idApp, nom FROM application WHERE idCat=" + zr_categ[i].sai_idCat
			bRes = SQLExec(sReq, sNomReq2)
			SI  PAS bRes ALORS
				SQLInfoGene()
				Erreur("Erreur lors de l'exécution de la requête.","Détail de l'erreur : ", " ", SQL.Erreur)
			SINON
				Info(zr_categ[i].lis_applis..Type, typListe)

				TANTQUE SQLAvance(sNomReq2) = 0
					// Le problème se situe ici...
					ListeAjoute(zr_categ[i].lis_appli, SQLLitCol(sNomReq2,2) + gLien(SQLLitCol(sNomReq2, 1))) 
				FIN
				
			FIN
			SQLFerme(sNomReq2)
		FIN
	FIN
	SQLFerme(sNomReq)
FIN
grp_appli..Etat = Inactif
SQLDéconnecte()

Bien sûr, je pourrais ne pas utiliser une zone répétée, mais l'effet graphique est vraiment sympathique, et l'application étant un outil d'administration de site web, ça colle bien.

Quelqu'un aurait-il une idée de comment éviter ce problème ?

Merci d'avance pour vos réponses