Sélection dans les tables

**BLacKBirD306** · 13/07/2011, 16h49

Bonjour,

j'ai quelques difficultés avec la programmation de la sélection de mes lignes dans les tables.

Mon appli utilise 6 fichiers simples dans lesquels se trouvent des listes de noms.
Une liste "tampon" et 5 listes "groupes".
Sans rentrer dans les détails, j'aimerais que lorsque j'appuie sur un bouton, le bandeau de sélection de ma table descende d'un élément à chaque fois.

Aussi, si possible j'aimerais pouvoir copier une sélection de plusieurs éléments, donc sans les copier un par un
----------->

Code :

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

1
2
3
	GROUP1.nAME = COL_NAMES..ValeurAffichée
	HAjoute(GROUP1)
	TableAffiche(TABLE_GROUP1)

En espérant avoir une réponse, je vous remercie d'avance. A bientôt.

**tatayo** · 13/07/2011, 18h15

Bonjour,

Pour le bandeau:
Tu peux récupérer l'indice de la ligne sélectionnée avec TableSelect().
Tu peux sélectionner une ligne avec TableSelectPlus.

Pour la copie:
Tu peux récupérer le nombre de ligne sélectionnées avec TableSelectOccurrence, et l'indice des lignes avec TableSelect().
Je te laisse écrire la boucle...

Tatayo.

**aurabarth** · 13/07/2011, 20h01

Si tu ne comprends pas, essais ces lignes de codes pour ton bouton

Code :

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

1
2
3
4
5
i est un entier
i=TableSelect(Nom_Table)
 
i=i+1
TableSelectPlus(TABLE_Diplome,i)

**BLacKBirD306** · 14/07/2011, 09h13

Voilà je vous mets une copie de la routine que j'ai faite:

i est un entier

Code :

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

1
2
3
4
5
6
7
SI TABLE_GROUP1..Visible = Vrai ALORS
	i = TableSelect(TABLE_GROUP1)
 
	TableSelectMoins(TABLE_GROUP1,i)
	TableSelectPlus(TABLE_GROUP1,i+1)
	TableAffiche(TABLE_GROUP1)
FIN

Ca ne fontionne toujours pas pourtant j'ai pas l'impression qu'y a une erreur.
Sinon pour le débordement j'imagine que je devrais faire une condition avec la fonction tableoccurrence que i ne devra pas dépasser mais dans un premier temps ce n'est pas ce qui est indispensable....

Sinon quand je mets certaines lignes en commentaire, au premier clic il reste sur le premier, ensuite il sélectionne le deuxième en même, puis au troisième clic le troisième élément....

**miripesage** · 14/07/2011, 10h01

Bonjour, ton code un peu remanié :

Envoyé par BLacKBirD306

Voilà je vous mets une copie de la routine que j'ai faite:

i est un entier

SI TABLE_GROUP1..Visible = Vrai ALORS
POUR i = 1 _A_ TableSelectOccurrence(TABLE_GROUP1)
TableSelect(TABLE_GROUP1,i)
//TableSelectMoins(TABLE_GROUP1,i)
.....
TableSelectPlus(TABLE_GROUP1,i+1)
TableAffiche(TABLE_GROUP1)
FIN

Ca ne fontionne toujours pas pourtant j'ai pas l'impression qu'y a une erreur.
Sinon pour le débordement j'imagine que je devrais faire une condition avec la fonction tableoccurrence que i ne devra pas dépasser mais dans un premier temps ce n'est pas ce qui est indispensable....

Sinon quand je mets certaines lignes en commentaire, au premier clic il reste sur le premier, ensuite il sélectionne le deuxième en même, puis au troisième clic le troisième élément....

**BLacKBirD306** · 15/07/2011, 09h07

J'ai testé le code suivant:

i est un entier

Code :

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

1
2
3
4
5
6
7
8
SI TABLE_GROUP1..Visible = Vrai ALORS
	POUR i = 1 _A_ TableSelectOccurrence(TABLE_GROUP1)
	TableSelect(TABLE_GROUP1,i)
	TableSelectMoins(TABLE_GROUP1,i)
	TableSelectPlus(TABLE_GROUP1,i+1)
	TableAffiche(TABLE_GROUP1)
	FIN
FIN

ça ne fonctionne toujours pas autant visuellement que dans le programme puisque d'après l'action de mon bouton, l'élément sélectionné n'a pas changé...

je remercie déjà ceux qui m'ont répondu jusqu'à présent

**Nicolas_Jeanneau** · 15/07/2011, 11h01

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
i est un entier
 
SI TABLE_GROUP1..Visible = Vrai ALORS
  POUR i = 1 _A_ TableSelectOccurrence(TABLE_GROUP1)
    TableSelect(TABLE_GROUP1,i)
    TableSelectMoins(TABLE_GROUP1,i)
    TableSelectPlus(TABLE_GROUP1,i+1)
  FIN
FIN

Si tu fais un TableAffiche, il reconstruit la table en rafraichissant les données et en sélectionnant donc la première ligne.
Il faut donc supprimer cette ligne.

Juste une remarque au passage, si tu ne fais que la boucle, à l'écran tu passeras de la ligne sélectionnée à la dernière sans vraiment voir le changement ligne à ligne car cela ne va pas prendre trop de millisecondes comme boucle ....
Si tu veux voir un effet de ligne à ligne, il te faut ajouter un multitache pour temporiser d'une seconde par ligne par exemple.

à bientôt,

Nicolas

**Nicolas_Jeanneau** · 15/07/2011, 11h04

Si tu veux que derrière le bouton, il n'y ait qu'un changement d'une ligne, ne pas faire de boucle !

**aurabarth** · 17/07/2011, 14h36

je suis du même avis que Nicolas: pas besoin d'une boucle pour passer à la ligne suivante. Utilise ces les lignes de codes et tu veras:

Code :

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

1
2
3
4
5
6
7
8
i est un entier
i=TableSelect(TABLE_Diplome)
SI i<TableOccurrence(TABLE_Diplome,toTotal) ALORS
	i=i+1
	TableSelectPlus(TABLE_Diplome,i)
SINON
	TableSelectPlus(TABLE_Diplome,1)
FIN

**aurabarth** · 17/07/2011, 14h39

N'oublie pas remplacer Table_Diplôme par le nom de ta Table. OK

**BLacKBirD306** · 19/07/2011, 17h14

Voilà j'ai testé le dernier code:

Code :

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

1
2
3
4
5
6
7
8
i est un entier
i=TableSelect(TABLE_GROUP1)
SI i<TableOccurrence(TABLE_GROUP1,toTotal) ALORS
	i=i+1
	TableSelectPlus(TABLE_GROUP1,i)
SINON
	TableSelectPlus(TABLE_GROUP1,1)
FIN

sans remettre le TableAffiche après et ça ne fonctionne toujours pas.

Je remercie encore une fois tous ceux qui ont déjà répondu.

**tatayo** · 19/07/2011, 17h18

Bonjour,
Qu'est-ce que tu entends par "ça ne fonctionne toujours pas" ? La permière ligne est toujours sélectionnée ? La sélection ne change pas ?

Si tu mets un point d'arrêt sur la première ligne et que tu traces pas à pas ton code, qu'est-ce qui se passe ? Quelles sont les valeurs de i, de tableOccurrence ?

Tatayo.

**EDM-TAHITI** · 19/07/2011, 17h23

Hello,
Je crois qu'une copie d'ecran aiderait grandement afin de cerner toute la problèmatique.
Après, je pense que le code de chaque bouton sera important.
Mais déjà, voir la fenetre serait un plus...

**Nicolas_Jeanneau** · 20/07/2011, 08h48

je vois que tu as enlevé le TableSelectMoins(TABLE_GROUP1,i), donc si tout se passe normalement tu devrais avoir de plus en plus de lignes sélectionnées ....

**BLacKBirD306** · 20/07/2011, 09h07

Bonjour, en fait au moment où j'appuie sur le bouton, la ligne de la table se désélectionne mais la suivante n'est pas sélectionnée, ni visuellement, ni au niveau du programme puisque le nom suivant n’apparaît pas dans la fenêtre d'envoi.

Je joins un print screen d'une partie de mon appli. Donc lorsque l'on clique sur le bouton "send", le programme envoie chaque caractère l'un à la suite de l'autre, ensuite il augmente "Number" de 1 et doit aussi passer au nom suivant, d'où mon problème.

**tatayo** · 20/07/2011, 10h12

Est-ce que tu peux nous montrer le code complet de ton bouton ?

Tatayo.

**BLacKBirD306** · 20/07/2011, 11h23

Voilà le code de mon bouton

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
	LIB_SENT = LIB_GEN1+LIB_GEN2+LIB_GEN3+LIB_GEN4+LIB_LETTER1+LIB_LETTER2+LIB_LETTER3+LIB_LETTER4+LIB_LETTER5+LIB_LETTER6+LIB_LETTER7+LIB_LETTER8+LIB_LETTER9+LIB_LETTER10+LIB_LETTER11+LIB_LETTER12+LIB_LETTER13+LIB_LETTER14
 
	AS_00 = SAI_NUMBER
	AS_01 = LIB_GEN1
	AS_02 = LIB_GEN2
	AS_03 = LIB_GEN3
	AS_04 = LIB_GEN4
 
	sOuvre(3,1,1)	
 
SI LIB_LETTER1 = " " ALORS
	AS_05 = "0"
SINON
	AS_05 = LIB_LETTER1
FIN
	sEcrit(3,AS_05)
 
SI LIB_LETTER2 = " " ALORS
	AS_06 = "0"
SINON
	AS_06 = LIB_LETTER2
FIN
//	sEcrit(3,AS_06)
 
SI LIB_LETTER3 = " " ALORS
	AS_07 = "0"
SINON
	AS_07 = LIB_LETTER3
FIN
//	sEcrit(3,AS_07)
 
SI LIB_LETTER4 = " " ALORS
	AS_08 = "0"
SINON
	AS_08 = LIB_LETTER4
FIN
//	sEcrit(3,AS_08)
 
SI LIB_LETTER5 = " " ALORS
	AS_09 = "0"
SINON
	AS_09 = LIB_LETTER5
FIN
//	sEcrit(3,AS_09)
 
SI LIB_LETTER6 = " " ALORS
	AS_10 = "0"
SINON
	AS_10 = LIB_LETTER6
FIN
//	sEcrit(3,AS_10)
 
SI LIB_LETTER7 = " " ALORS
	AS_11 = "0"
SINON
	AS_11 = LIB_LETTER7
FIN
//	sEcrit(3,AS_11)
 
SI LIB_LETTER8 = " " ALORS
	AS_12 = "0"
SINON
	AS_12 = LIB_LETTER8
FIN
//	sEcrit(3,AS_12)
 
SI LIB_LETTER9 = " " ALORS
	AS_13 = "0"
SINON
	AS_13 = LIB_LETTER9
FIN
//	sEcrit(3,AS_13)
 
SI LIB_LETTER10 = " " ALORS
	AS_14 = "0"
SINON
	AS_14 = LIB_LETTER10
FIN
//	sEcrit(3,AS_14)
 
SI LIB_LETTER11 = " " ALORS
	AS_15 = "0"
SINON
	AS_15 = LIB_LETTER11
FIN
//	sEcrit(3,AS_15)
 
SI LIB_LETTER12 = " " ALORS
	AS_16 = "0"
SINON
	AS_16 = LIB_LETTER12
FIN
//	sEcrit(3,AS_16)
 
SI LIB_LETTER13 = " " ALORS
	AS_17 = "0"
SINON
	AS_17 = LIB_LETTER13
FIN
//	sEcrit(3,AS_17)
 
SI LIB_LETTER14 = " " ALORS
	AS_18 = "0"
SINON
	AS_18 = LIB_LETTER14
FIN
//	sEcrit(3,AS_18)
 
i est un entier
i=TableSelect(TABLE_GROUP1)
SI i<TableOccurrence(TABLE_GROUP1,toTotal) ALORS
	i=i+1
	TableSelectPlus(TABLE_GROUP1,i)
SINON
	TableSelectPlus(TABLE_GROUP1,1)
FIN
 
 
SI SAI_NUMBER < 255 ALORS
	SAI_NUMBER++
FIN

je n'utilise pas encore tout étant donné que j'aimerais tester la sélection avant ...

**tatayo** · 20/07/2011, 11h36

Si tu mets un point d'arrêt sur la ligne 109, et que tu traces pas à pas, qu'est-ce que ça donne ?

Tatayo.

**BLacKBirD306** · 20/07/2011, 12h31

Voilà il y a un problème au niveau de la sélection. En fait en cliquant sur le deuxième élément de la liste, i = -1 comme résultat de i=TableSelect(Table_Group1). Donc y a un soucis quelque part...

**J0r_x** · 20/07/2011, 13h15

si i = -1, c'est que la table à été désélectionné.
Tu a envoyé tout le code, il n'y a pas de code dans le tableau ?

Sélection dans les tables

WinDev

Discussions similaires

Partager

Partager