Discussion :

[LaGhyoute]

Bonjour je travaille sous Webdev

Dans ma page j'ai une table remplie avec une requête depuis des fichiers de données (un seul fichier qui est Souscripteur)
à coté de la table j'ai un bouton "Ajouter" qui est de type navigateur (donc il ne fait aucun action) : son rôle est de m'afficher une page Pop-Up contenant un formulaire où l'on peut saisir un nouveau souscripteur.

L'ajout au fichier de données marche parfaitement le seul soucis que j'ai c'est : la table s'affiche sans la ligne juste ajoutée, je dois rafraichir la page manuellement pour voir la ligne que je viens d'ajouter -_-

Je pense que c'est un problème lié à la table, j'ai essayé d'insérer la ligne mais ça marche pas

voici le code du bouton ajout :

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
 
sCinsous est une chaîne = SAI_CIN
SI SAI_CIN = "" OU SAI_Nom = "" OU SAI_Prénom = "" ALORS
	Info("Veuillez vérifier votre saisie : Les champs 'Nom', 'Prénom' et 'CIN' sont obligatoires !")
SINON
SI HLitRecherchePremier(SOUSCRIPTEUR,CINSouscripteur,sCinsous) = Vrai ALORS
		Info("Le CIN existe déjà !")	
SINON
	Trace("Je suis dans l'ajout !")
	SOUSCRIPTEUR.CINSouscripteur = SAI_CIN
	SOUSCRIPTEUR.nomSouscripteur = SAI_Nom
	SOUSCRIPTEUR.prenomSouscripteur = SAI_Prénom
	SOUSCRIPTEUR.telSouscripteur = SAI_Téléphone
	SOUSCRIPTEUR.mailSouscripteur = SAI_Mail
	SOUSCRIPTEUR.adresseSouscripteur = SAI_Adresse
 
	SI HAjoute(SOUSCRIPTEUR) = Vrai ALORS
		nIndice est un entier = TableAjouteLigne(TABLE_PAGE_ListSous,SOUSCRIPTEUR.CINSouscripteur,SOUSCRIPTEUR.nomSouscripteur,
		SOUSCRIPTEUR.prenomSouscripteur,SOUSCRIPTEUR.telSouscripteur,SOUSCRIPTEUR.adresseSouscripteur,SOUSCRIPTEUR.mailSouscripteur)
		TableAffiche(TABLE_PAGE_ListSous)
		Trace("Souscripteur ajouté avec succés !")
		Info("Souscripteur ajouté avec succés !")
		SAI_CIN = ""
		SAI_Nom = ""
		SAI_Prénom = ""
		SAI_Téléphone = ""
		SAI_Mail = ""
		SAI_Adresse = ""
	SINON
		TableAffiche(TABLE_PAGE_ListSous)
		Trace("ERROR ")
		Info("Une erreur est survenue lors de l'ajout, Veuillez réessayer plus tard")
 
	FIN
FIN
FIN

Merci beaucoup d'avance !

Cdlt.

[LaGhyoute]

Bon voilà j'ai résolu le problème.
Si qq1 rencontre le même problème, il faut manipuler le champ table par programmation comme ça,
exécuter la requêtte de sélection et remplir la table.