Discussion :

[tun_01]

Bonjour,
je suis débutante dans le domaine de la programmation WinDev, j'ai créé un combo box qui est relié à une table, et deux boutons ajout et supprimer, et j'ai trouvé des problèmes:
-la suppression se fait une seule fois, quand je fais un clic pour la 2ème fois sur le bouton rien ne se passe.
-la liste contient 2 champs vides au début.
voila mon code

Code :

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

1
2
3
4
5
6
SI OuiNon(0,"Etes-vous sûr de vouloir supprimer cette catégorie?")=Vrai ALORS
	HSupprime(categ)
	ListeSupprime(COMBO_categorie)
	ListeAffiche(COMBO_categorie,taDébut)
 
FIN

[Akryen]

Salut tun_01,

Si tu ne passes pas l'identifiant de la liste a supprimer (deuxième paramètre) à ta fonction ListeSupprime() celle-ci te supprime ton élément en cours..

Ton problème vient peut-être de là.
Sur le deuxième clic du bouton de suppression il doit perdre ton élément en cours.

Essaye quelque chose comme ça:

Code :

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

1
2
3
4
5
x est un entier = 0
POUR TOUTE LIGNE SELECTIONNEE DE COMBO_categorie
        x++
	ListeSupprime(COMBO_categorie,x)
FIN

Ou bien comme dans la doc:

Code :

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

1
2
3
4
5
 
Indice est un entier
POUR Indice = ListeOccurrence(ListeClient) à 1 PAS -1
   ListeSupprime(ListeClient, Indice)
FIN

Tu peux également essayer de rajouter à la fin de ton code de suppression:

Code :

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

ListeSelectPlus(COMBO_categorie,x)

De façon a ce que la première ligne soit toujours sélectionnée.

[tun_01]

Merci beaucoup Akryen c'est résolu concernant la suppression

il me reste e problème des lignes vides au début de la combo, t'as une idée?
voilà mon code d'ajout

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
HRAZ(categ)
EcranVersFichier()
 
// S'il s'agit d'un nouvel enregistrement
SI categ..NouvelEnregistrement = Vrai ALORS
	// On l'ajoute
	HAjoute(categ)
	SI HErreurDoublon() = Vrai ALORS
		Erreur("Ce nom existe déjà")
	FIN
	ListeAffiche(FEN_Gestion_Stock.COMBO_categorie,taDébut)
	HModifie(categ)

[Akryen]

Salut,

Vérifie que dans ton fichier "categ" tu n'es pas d'enregistrement vide.
Si ce n'est pas le cas ça vient probablement de ton code.

Je n'utilise pas HyperFile ainsi que les fonctions comme HAjoute(), HModifie() etc..
Je ne serai surement pas d'une grande aide sur ces points-là.

Tu remplis ta combo comment avec une requête intégrée à celle-ci ?
Ou bien avec un bout de code où tu parcours ta table pour la remplir ?

[tun_01]

Merci pour votre réponse,
bon j'ai créé un libellé cat=HNbEnr(categ) elle renvoi le nombre 6 alors j'ai 5 enregisrement et 2 lignes vides
j'ai rempli mon combo à partir d'une liaison avec un fichier (categ) qui est rempli avec ce code

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
 
HRAZ(categ)
EcranVersFichier()
 
// S'il s'agit d'un nouvel enregistrement
SI categ..NouvelEnregistrement = Vrai ALORS
	// On l'ajoute
	HAjoute(categ)
	SI HErreurDoublon() = Vrai ALORS
		Erreur("Ce nom existe déjà")
	FIN
	ListeAffiche(FEN_Gestion_Stock.COMBO_categorie,taDébut)
	HModifie(categ)
 
	FIN

[Akryen]

Je n'utilise pas non plus les combos avec requête intégrée, mais il me semble que la combo doit se remplir toute seule.

Normalement tu dois initialiser ta combo par rapport à ta table pourquoi testes-tu à cet endroit si tu as de nouvelle entrée dans ta table ?
Pour moi ça c'est le code du bouton ajouter, et je ne vois pas l'utilité de la ligne si categ..NouvelEnregistrement = Vrai dans ton code.

Ce que je ferai (sans requête lié à ta combo):

- L'initialisation de ta combo par rapport à ta table tu créé une procédure que tu va appeler dans l'init de ta combo et a chaque modification de ta table categ.

Code :

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

1
2
3
4
5
6
7
8
9
10
PROCEDURE pl_init_Liste_categ()
 
ListeSupprimeTout(categ)
SI HlitPremier(categ) = vrai ALORS
  TANT QUE HTrouve(categ)
      ListeAjoute(categ.libelle+glien(categ.id) // Exemple..
      HlitSuivant(categ)
   FIN
FIN
HFerme(categ)

- Ton bouton d'ajout:

Code :

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

1
2
3
4
categ.Libelle = sai_libelle
hAjoute(categ)
HRAZ(categ)
pl_init_Liste_categ()

- Ton bouton de suppression:

Code :

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

1
2
3
4
POUR TOUTE LIGNE SELECTIONNEE DE COMBO_categorie
	hSupprime(categ,COMBO_categorie..valeurMemorisee)
FIN
pl_init_Liste_categ()

Au moins tu te bases uniquement sur ta table categ et tu es sûre que ta combo COMBO_categorie est le reflet de ta table.

[tun_01]

Grannnd Akryen c'est bien