Discussion :

[Baxter89]

Bonjour,

Dans la combo j’affiche la liste d’un fichier que j’ai appelé Option, dans ce fichier je peux créer mes options, pour mon test j’ai créé Option1, Option2, Option3 et Option4.

Quand je sélectionne la première ligne Option1) et que je clic sur ajouter il m’insère bien la ligne dans mon tableau, si je veux rajouter une autre ligne, le problème quel que soit la ligne sélectionné, il m’insère toujours ligne 1 (Option1).

Code :

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

1
2
3
4
5
6
7
8
 
SI COMBO_Option = "" ALORS
Info("Veuillez sélectionner une option")
RepriseSaisie(COMBO_Option)
SINON
FichierVersEcran()
TableAjoute(TABLE_Option, Option.Option + TAB + Option.Date)
FIN

Merci de votre aide

[Voroltinquo]

Bonjour,
A première vue tu n'a pas codé COMBO_Option.
En supposant que ta COMBO renvoie la PK de ta table option (valeur mémorisée dans la description), il faut coder "Sélection d'une ligne" dans ta COMBO.

Code :

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

1
2
 
HLitRecherche(COMBO_Option,PK_Option,MoiMême)

Tu te place donc sur l'enregistrement choisi. Dans ton cas, tu étais toujours sur le premier enregistrement.

Par ailleurs, je ne vois pas pourquoi tu as un FichierVersEcran dans ton code, surtout à cet endroit.

Rq:Tu peux même te passer du bouton "Ajouter" en codant directement dans la partie "Sélection d'une ligne".

Code :

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

1
2
3
 
HLitRecherche(COMBO_Option,PK_Option,MoiMeme)
TableAjoute(TABLE_Option, Option.Option + TAB + Option.Date)

[Baxter89]

Bonjour Voroltinquo,

Merci de ta réponse, je bricole sur Windev j'essaye de m'aider avec la doc en ligne et les précieuses aide du forum, j'utilise le plus souvent le rad.

Petit question de novice a quoi correspond PK, j'ai fait une copie d'écran de la description combo

Merci

[Voroltinquo]

La PK correspond à la clé primaire (Primary Key) chez toi, c'est IDOption

En relisant mon précédent post j'ai vu une erreur au niveau du HlitRecherche.
Il faut lire :

Code :

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

1
2
 
HLitRecherche(Option,PK_Option,MoiMême)

[Baxter89]

Effectivement sans le bouton c'est plus simple j'ai mis le code suivant

Code :

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

1
2
HLitRecherche(Option,IDOption,MoiMême)
TableAjoute(TABLE_Option, Option.Option + TAB + Option.Date)

et il m'ajoute toujours que la première ligne

Copie de mon fichier Option

[tbc92]

Dans l'aide de la fnction hLitRecherche() ici , il y a un exemple.

Après l'appel de la fonction hLitRecherche, il y a la vérification : si hTrouve() alors ... ok sinon ... pas ok finIl faut systématiquement faire cette vérification. Ca prend 20 secondes pour taper les 3 ou 4 lignes de code en question, et ça permet de ne pas tourner en rond pendant des heures parce que le programme ne fait pas ce qu'on veut.

Et si le programme ne trouve pas la ligne voulue dans le fichier, alors il faut afficher plein d'informations pour essayer de comprendre ce qui se passe. Par exemple afficher la valeur qui était recherchée, et dire que cette valeur n'a pas été trouvée.
Ici, j'ai une très vague idée de ce qui se passe, mais pour en être sûr, il faut passer par ce test sur htrouve().

[Baxter89]

Merci tbc92

Voici le code par rapport a l'aide en ligne que tu ma fourni, le test a fonctionné et j'ai placé ma ligne tableajout, il fallait aussi que je mette une clé avec doublon sur la rubrique option.

Code :

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

1
2
3
4
5
6
HLitRecherche(Option, Option, MoiMême)
SI HTrouve() = Vrai ALORS
	TableAjoute(TABLE_Option, Option.Option + TAB + Option.Date)
SINON
	Erreur("Aucun enregistrement ne correspond")
FIN

[Baxter89]

Dans mon bouton Valider j'ai mis :

Code :

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

HEnregistre(Option)

quand je relance les lignes ajouté sont pas présente, je peux chercher dans quoi

[tbc92]

Dans le hLitRecherche(), tu as remplacé le 2ème paramètre idOption par Option. Ok, ma vague idée était la bonne. Je pense que je n'aurais pas corrigé comme ça, mais ok.

Pour ton nouveau problème, la fonction hEnregistre ne va pas changer miraculeusement ton fichier.

Si tu fais option.option = 'nouvelle valeur' puis henregistre(), ok , ça va modifier la dernière ligne lue.
si tu fais option.option = 'nouvelle valeur' puis hajoute() , ok, ça va ajouter une nouvelle ligne.

Mais si tu fais hEnregistre(), comme ça, dans le vide, Windev va réécrire dans le fichier Option la même chose que ce qu'il vient de lire.

[Baxter89]

Merci tbc92,

je vais chercher un peu, le but est de comprendre aussi ce qu'on fait.

[Voroltinquo]

Dans ton post 5, il est logique (sauf hasard) que ton HLitRecherche te renvoie un faux.
Tu fait une recherche sur IDOption en lui passant la valeur de Option (la valeur retournée par la combo, valeurr mémorisée dans la description.) Il faut que ta recherche se fasse sur la même rubrique. L'idéal dans ce cas est de faire une recherche sur la PK, cela évite d'avoir à gérer le cas où il y a 2 options ayant le même nom.
Qui plus est , HLitRecherche sur une chaîne en Windev a parfois des comportements bizarres, même avec l'option hidentique, ou en utilisant HLitRecherchePremier. On est obligé de contrôler après. (Cela s'est peut être arrangé au cour du temps, je n'ai pas vérifié)

Code :

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

1
2
3
4
5
6
7
8
 
SI HLitRecherchePremier(MaTable,MaRubriqueChaine,sRecherche) ALORS //Equivalent à HlitRecherche,SI HTrouve
     SI MaTable.MaRubriqueChaine=sRecherche Alors
          Traitement nominal
     SINON
          Enregistrement non trouvé
     FIN
FIN

[Baxter89]

Bonjour Voroltinquo,

Merci, je vais tester aussi cette solution, maintenant je but sur l'enregistrement de ma table, les lignes s'intègre bien sauf que quand je relance l'appli il ne sont plus présent.

Merci

[Voroltinquo]

Dans l'initialisation, il suffit de récupérer les enregistrements précédents et de les ajouter via TableAjouteLigne (préférable à TableAjoute cf https://doc.pcsoft.fr/fr-FR/?3074017...joute_fonction)

[Baxter89]

Je sais pas trop comment faire pour la sauvegarde j'au beau suivre les exemples ça ne fonctionne pas.

[Voroltinquo]

La solution la plus simple est de parcourir séquentiellement les lignes de ton champ table et de les enregistrer à l'endroit où ils doivent être.

[StephCoul]

Salut Baxter89. Est-ce possible de voir ton fichier de donnée "Option"?
Je veux dire dans l'éditeur d'analyses.

[StephCoul]

Ok j'ai vu le fichier de donnée. Voila donc ce que je te propose.
J'ai expliqué ce que j'ai fait en commentaire dans le code.
La capture d'écran:

Voila le code de mon bouton ajouter:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
//Ma combo n'est pas avec saisie, donc pas besoin de vérifier si elle est vide
Option.Option=COMBO_Option..ValeurAffichée
Option.Date=Maintenant()
HAjoute(Option)
 
//Après l'ajout, je rempli mon tableau avec le contenu de mon fichier de donnée
 
TableSupprimeTout(TABLE_Option)
POUR TOUT Option 
 
	TableAjouteLigne(TABLE_Option,Option.Option,Option.Date)
 
FIN

S'il y a des incompréhension, je serai là pour expliquer