Discussion :

[Madro]

Bonjour,

Je crée une table à l'aide de la fonction ConstruitTablefichier, avec comme base de donnée un fichier hyperfile. Cette tablefichier contient plusieurs colonnes (Produit,client,prix..).
J'aimerai tout simplement faire le total de tous les produits vendus,

Code :

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

1
2
3
4
5
6
POUR i=1 A HNbEnr(NomFichier,hEtatTous)
	HLit(NomFichier,i)
	SI HEtat() = hEtatActif ALORS 
		Total=Total+Val(NomFichier.Prix)
	FIN
FIN

Le problème avec ce code, quand j'active un filtre le code prend en compte toutes les valeurs et non les valeurs affichées.

Est-il possible d'utiliser un code si dessous? Mais Table_Ventes.Prix est inconnue vu que c'est une tablefichier.

Code :

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

1
2
3
POUR nCumul=1 A ListeOccurrence(TABLE_Ventes)
	PrixTotal+=TABLE_Ventes.Prix[nCumul]
FIN

Merci d'avance.

[hpascal]

Bonjour

Utilise les indirections pour adresser un champ qui n'existe pas (encore)

Code :

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

1
2
3
POUR nCumul=1 _A_ ListeOccurrence(TABLE_Ventes)
	PrixTotal+= {"TABLE_Ventes.Prix",indChamp}[nCumul]
FIN

[Madro]

Merci, ça fonctionne .

Mais ça fonctionne pour toutes les colonnes sauf une.
Par exemple je veux colorer les lignes selon le modèle. Je marque exactement le même code.. sauf que il me dit que "Famille" est inconnue.
C'est la première colonne de ma base de donnée, aucune erreur d'orthographe.

Code :

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

1
2
3
4
5
6
7
8
9
SI INT_Couleur=1 ALORS
	POUR n=1 _A_ TableOccurrence(TABLE_Ventes)	
			SI {"Famille",indChamp}[n]="Vélo enfant" ALORS TABLE_Ventes[n]..CouleurFond = CyanPastel
			SI {"Famille",indChamp}[n]="VTT" ALORS TABLE_Ventes[n]..CouleurFond = VertPastel
			SI {"Famille",indChamp}[n]="Vélo de route" ALORS TABLE_Ventes[n]..CouleurFond = iGrisClair
			SI {"Famille",indChamp}[n]="VTC" ALORS TABLE_Ventes[n]..CouleurFond = iJauneClair
			SI {"Famille",indChamp}[n]="Vélo électrique" ALORS TABLE_Ventes[n]..CouleurFond = MagentaPastel
	FIN
FIN

[hpascal]

Si c'est le première colonne de ta table peux-tu faire :

Code :

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

Info(TableEnumèreColonne(TABLE_Ventes, 1))

Pour être sur que son nom est bien "Famille"
Ou alors tu affiches ChampEnCours() sur l'évènement clic sur la table

Tu devrais aussi
- préciser le nom de la table dans l'indirection :

Code :

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

{"TABLE_Ventes.Famille",indChamp}[n]

- utiliser SELON plutôt que des SI en série

Ensuite pourquoi faire un ConstruitTablefichier ? La requête source peut varier ?
Parce qu'un traitement comme celui là (mise en couleur) tu peux faire ça facilement dans le traitement "Affichage d'une ligne" de la table, et sans passer par des indirection si ta table est fixe (basée sur ta requête)

[Madro]

Étrange, enfait le nom des colonnes est _COL1,_COL2.. Mais il reconnait quand même la colonne prix..

Code :

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

 {"TABLE_Ventes.Prix",indChamp}[n]

Du coup les couleurs marchent, c'est bon, merci encore!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
n est un entier
 
SI INT_Couleur=1 ALORS
	POUR n=1 _A_ TableOccurrence(TABLE_Ventes)	
		SELON {"_COL1",indChamp}[n]
		CAS "Vélo enfant": TABLE_Ventes[n]..CouleurFond = CyanPastel
		CAS "VTT" : TABLE_Ventes[n]..CouleurFond = VertPastel
		CAS "Vélo de route" : TABLE_Ventes[n]..CouleurFond = iGrisClair
		CAS "VTC" : TABLE_Ventes[n]..CouleurFond = iJauneClair
		CAS "Vélo électrique" : TABLE_Ventes[n]..CouleurFond = MagentaPastel
		FIN
	FIN
FIN

La table reste fixe, rien ne change. Au départ la table est vide donc si je n'utilise pas d'indirection il va forcement pas connaitre les colonnes?

[Bowen]

Si tu ne veux pas te prendre la tête avec les indirections, je pense que tu peux aussi créer les colonnes _COL_1, _COL_2, etc. dans ta table avant de commencer.
Les colonnes seront supprimées puis recréées de toutes façons.