Element1,NomTable est une chaîne
Element1="IdCateg"
NomTable="TabCateg"
sResultat est une chaîne
sResultatCompile est une chaîne
sSource est une chaîne
sSource = "//Une Structure" + RC
sSource += "Categ est une structure" + RC
sSource += " IdCateg est un entier" + RC
sSource += " LibCateg est une chaîne" + RC
sSource += "FIN" + RC + RC
sSource += "//Un Tableau Dynamique" + RC
sSource += "TabCateg est un tableau dynamique" + RC
sSource += "TabCateg=allouer un tableau de 0 Categ"+RC + RC
sSource += "Element1,NomTable est une chaîne" + RC
sSource += "Element1=""IdCateg""" + RC
sSource += "NomTable=""TabCateg""" + RC + RC
sSource += "//Je redimensionne mon tableau." + RC
sSource += "Dimension({NomTable},1) //Ca fonctionne" + RC + RC
sSource += "//j'affecte une valeur de test" + RC
sSource += "TabCateg[1]:IdCateg=10" + RC
sSource += "//on regarde le resultat" + RC
sSource += "Info(""Nouvelle Valeur affectée à TabCateg[1]:IdCateg : "" +TabCateg[1]:IdCateg)" + RC + RC
sSource += NomTable + "[1]:" + Element1 + "=2" + RC
sSource += "RENVOYER (TabCateg[1]:IdCateg)"
sResultatCompile = Compile ("Proc_dynamique", sSource)
SELON sResultatCompile
CAS "" : sResultat = ExécuteTraitement("Proc_dynamique", trtProcédure )
CAS "ERR" : sResultat = "Compilation impossible. "+ RC +ErreurInfo()
AUTRE CAS : sResultat = sResultatCompile
FIN
Info("TabCateg[1]:IdCateg = " + sResultat)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=6&topic_id=1815&post_id=7559