Discussion :

[chapeau_melon]

Bonjour,

Le titre dit tout :

sélectionner une ligne dans une table,une à une,et modifier automatiquement
une valeur dans une colonne, de la ligne sélectionnée ? Ceci jusqu'à la fin de toutes le lignes précentes ?

j'ai essayé ceci mais sans succès

Code :

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

1
2
3
4
5
    BOUCLE (ResNombreLigne)
        i = 1+i
        TableSelectPlus(TABLE_REQ_patienten,i)
        TABLE_REQ_patienten.COL_print = 1
    FIN

BAV

[Jannus]

Pas besoin de sélectionner la ligne.

Code :

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

1
2
3
4
Bl est entier
Pour bl = 1 à TableOccurrence(MaTable)
      Matable.MaColonne[bl]=valeur
FIN

[chapeau_melon]

trop fort. Cela fonctionne

En fait le clou c'est la partie [i] que je ne mettait pas dans le code de la colonne.


Merci

[chapeau_melon]

hmm étonnant, la colonne que je modifié est un intérrupteur. Mais les modifications ne sont pas sauvegardé ?? hors il est bien lié à ça rubrique?

??

Lors ce que je les modif manuellement une à une les modifs sont enregistrés.

J'ai vue un autre thread sur le forum, mais il ne m'aide pas ?

BAV

[Jannus]

Il faut vérifier ta liaison Table <-> Fichier
Éventuelement faire un ÉcranVersFicher() après les modifications.

[chapeau_melon]

Et si elle est basé sur une req ?

ecranversfichier ne fonctionne pas non plus. ni vers la table, ni vers la req.

BAT

voici un aperçu de tout :

- une fen qui contient une table basé sur une req.
- cette même fen contient un interrupteur (en dehors de la table) qui fonctionne comme déclencheur pour modifier toutes les lignes de la table
comme suite :

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
 
 
// a chaque modification de INT_...
 
ResNombreLigne est un entier = TableOccurrence(TABLE_REQ_patienten)
i est un entier
 
SI MoiMême[1]=Vrai ALORS 
 
    POUR i=1 A ResNombreLigne
        TABLE_REQ_patienten.COL_print[i] = Vrai
        EcranVersFichier()
    FIN 
 
SINON
 
    POUR i=1 A ResNombreLigne
        TABLE_REQ_patienten.COL_print[i] = Faux
        EcranVersFichier()
    FIN 
 
FIN

la table à les options : - saisie en cascade et enrg en sortie de ligne
- elle est lié pour son contenu à la req.

cette req est préalablement exécuté avec l'option HExécuteRequête(REQ_patienten,hModifieFichier,...)

La colonne qui doit être modifié est correctement lié à la bonne rubrique de la req en question.


BAV

[chapeau_melon]

resolu en donnant le focus je pense ? en tout cas le modifs sont sauvegardés

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
 
ResNombreLigne est un entier = TableOccurrence(TABLE_REQ_patienten)
i est un entier
 
SI MoiMême[1]=Vrai ALORS 
 
    BOUCLE (ResNombreLigne)
        i = 1+i
        TableSelectPlus(TABLE_REQ_patienten,i)
        DonneFocus(TABLE_REQ_patienten.COL_print)
        COL_print = Vrai
        TableEnregistre(TABLE_REQ_patienten)
    FIN
 
 
SINON
 
    BOUCLE (ResNombreLigne)
        i = 1+i
        TableSelectPlus(TABLE_REQ_patienten,i)
        DonneFocus(TABLE_REQ_patienten.COL_print)
        COL_print = Faux
        TableEnregistre(TABLE_REQ_patienten)
    FIN
 
FIN