Discussion :

[Wease]

Hello !

Il se trouve que j'ai mis en place un genre de système de QCM à l'aide de zones répétées imbriquées.

Fini le blabla voici le 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
POUR i = 1 _A_ gnNbQuestions
	// récupérer les informations de la question
	donnéesQuestion = extraitInfoQuestion(QCMALire,i)
	//on recupere le nombre d'options pour chaque question
	nNbOptions est un entier= Val(ExtraitChaîne(donnéesQuestion,1,RC))
	// On ajoute la ZR_Question
	ZoneRépétéeAjouteLigne(ZR_Questions)
	ZR_Questions[i].LIB_QuestionAffich = ExtraitChaîne(donnéesQuestion,2,RC+"***"+RC,DepuisDébut)
	// On récupère les options de la question
	options = ExtraitChaîne(donnéesQuestion,2,RC,DepuisDébut)
	POUR j = 1 _A_ nNbOptions
		Info("trace a")
		ZoneRépétéeAjouteLigne(ZR_Questions[i].ZR_QuestionCoch)
		Info("trace b")
		ZR_QuestionCoch[j].LIB_Reponse..Libellé = ExtraitChaîne(options,j,"|#|",DepuisDébut)
		Info("trace c")
	FIN
FIN

Sur android, ça bloque entre la trace b et la trace c avec le message suivant :

L'opérateur [] est incompatible avec le type Objet interne

Truc bizarre, c'estque ça marche pour la ZR_Questions, mais pas ZR_QuestionsCoch.

Voilà, ça peut paraître bête mais même une piste serait la bienvenue =)

Merci.

[Wease]

J'ai avancé.

J'ai utilisé des redirections pour arriver à mes fins... comme ceci :

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
nomZR_Qc est une chaîne = "ZR_QuestionCoch"
donnéesQuestion, options sont des chaînes
nomZR_Qc est une chaîne = "ZR_QuestionCoch"
 
POUR i = 1 _A_ gnNbQuestions
	// récupérer les informations de la question
	donnéesQuestion = extraitInfoQuestion(QCMALire,i)
	//on recupere le nombre d'options pour chaque question
	nNbOptions est un entier= Val(ExtraitChaîne(donnéesQuestion,1,RC))
	// On ajoute la ZR_Question
	ZoneRépétéeAjoute(ZR_Questions)
	ZR_Questions = ZoneRépétéeOccurrence(ZR_Questions)
	SAI_Question = ExtraitChaîne(donnéesQuestion,2,RC+"***"+RC,DepuisDébut)
	// On récupère les options de la question
	options = ExtraitChaîne(donnéesQuestion,2,RC,DepuisDébut)
	POUR j = 1 _A_ nNbOptions
		ZoneRépétéeAjoute(ZR_QuestionCoch)
		{nomZR_Qc,indChamp}[j] = ExtraitChaîne(options,j,"|#|",DepuisDébut)
	FIN
FIN

Bon, petit problème cependant, ça n'affiche pas les ZR_QuestionCoch... il faut continuer de chercher donc.

[DelphiManiac]

Il me semble avoir déjà eu ce problème. De mémoire c'étais parce que Windev se mélangeait les pinceaux entre le nom de la colonne et le nom d'un champ qui était identique.

Dans ton cas tu as :

Code :

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

1
2
3
4
5
		Info("trace a")
		ZoneRépétéeAjouteLigne(ZR_Questions[i].ZR_QuestionCoch)
		Info("trace b")
		ZR_QuestionCoch[j].LIB_Reponse..Libellé = ExtraitChaîne(options,j,"|#|",DepuisDébut)
		Info("trace c")

c'est à dire une colonne portant le nom ZR_QuestionCoch et une table répétée de même nom. Change le nom de la colonne, par exemple COL_ZR_QuestionCoch. Y'a de fortes chances que le problème soit là.