Libelle des colonnes de table

Posté par Belette le 20/2/2007 8:01:12

Bonjour, je voudrais placer dans une colonne de table, les libelles de colonne d'une autre table suivant l'ordre d'affichage !

Mon code fonctionne 1 X sur 2
Qui peut m'aider ?

J est un entier=1
POUR I = 1 A {Nom_Table}..NombreColonne
indice est un entier = TableIndiceColonne(Nom_Table,TableEnumèreColonne(Nom_Table,I),ticAffichage)
Colonne=Nom_Table+"."+TableEnumèreColonne(Nom_Table,indice)
SI Droite(Colonne,9)="DEPT_CONC" OU Droite(Colonne,3)="REC" ALORS
SINON
SI {Colonne}..Visible=Vrai ALORS
TableAjouteLigne(TABLE_Selection,SansEspace({Colonne}..Libellé),Milieu(ExtraitChaîne(Colonne,3,"."),5,15))
TABLE_Selection.COMPTEUR[TABLE_Selection..Occurrence]=J
J++
FIN
FIN
FIN