Re: Comment actualiser une table mémoire en triant
Posté par drcharly93 le 21/6/2006 10:58:35
Bonjour,
pour ajouter les article comme vous désirez le faire il faut proceder de la facon suivante:
vous devez disposer d'une table ici nommé 'Table'
puis d'au moins 3 colonnes nommés par exemple comme ceci
- Colonne Article : colArticle
- Colonne Quantité : colQte
- Colonne Total : colTotal
ensuite il vous faux au moins 2 champs de saisie :
- txtArticle : Chaine de caractères
- txtTotal : Numérique
Puis enfin un bouton qui va permettre d'ajouter les informations à votre table.
- cmdAjoute
Le code va donc se trouver dans le bouton cmdAjoute.
Code Saisi à la volée et peut comporter des erreurs.
pour ajouter les article comme vous désirez le faire il faut proceder de la facon suivante:
vous devez disposer d'une table ici nommé 'Table'
puis d'au moins 3 colonnes nommés par exemple comme ceci
- Colonne Article : colArticle
- Colonne Quantité : colQte
- Colonne Total : colTotal
ensuite il vous faux au moins 2 champs de saisie :
- txtArticle : Chaine de caractères
- txtTotal : Numérique
Puis enfin un bouton qui va permettre d'ajouter les informations à votre table.
- cmdAjoute
Le code va donc se trouver dans le bouton cmdAjoute.
//Clic sur cmdAjoute
//On test pour savoir si les champs ont été renseignés
Si SansEspace(txtArticle) = "" Alors Retour
Si txtTotal = 0 Alors Retour
//On recherche pour savoir si le produit existe dans la table
Indice est un entier
Indice = TableCherche(colArticle,txtArticle,Vrai)
//Vrai permet une recherche à l'indentique
Si Indice <> -1 Alors
//L'article existe dans la table
//On va ajouter quantité et valeur
TableSelectPlus(Table,Indice) //On se positionne sur la ligne
colQte += 1
colTotal += txtTotal
Sinon
//L'article n'existe pas on l'ajoute
TableAjoute(Table,txtArticle + TAB + "1" + TAB + txtTotal)
Fin
//Maintenant on tri la table
//Tri Croissant sur la colonne Article
TableTri(Table,"+colArticle")
Code Saisi à la volée et peut comporter des erreurs.
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4245&post_id=17486