Le portail francophone de la géomatique

Bon j'ai trouvé comment réaliser ceci grace à deux multilistbox, par contre le probleme est toujours pas pour afficher dans la premiere les différentes occurences présentes dans la colonne de ma table. Autre Probleme qui risque de ce poser à moi celui du stockage des différents choix de l'utilisateur afin de pouvoir les réutiliser par la suite dans une requete par exemple. Avec un tableau peut etre ?

Merci pour votre réponse meme si pour moi celle ci me parait un peu flou.

J'ai une boite de dialogue que l'on va qualifier de primaire. Meme si dans l'arboresccence de mes boites de dialogue c'est la 3eme mais elle est indépendante des autres. Celle ci permet a l'utilisateur de selectionner sa table parmi les tables ouvertes. Une fois celle ci selectionné le programme rempli automatiquement le champ sur lequel sera fait la somme. L'utilisateur clique ensuite sur le bouton central afin de choisir les identifiants désiré ce qui ouvre la boite de dialogue appelé par la procédure dlg4. Pour l'instant je n'ai pas plus avancé hormis la requete group by ID que j'ai fait grace a une commande xx

xx= "Select id from "+nomtable(A)+" group by id order by id into bidule"

Par contre la boucle utilisant fetch je n'en ai jamais utilisé je vais essayer de m'aider de l'aide mapbasic.
Voici mon code tel qu'il est actuellement, je l'avoue assez peu évolué

Sub Dlg3
    Compteur =  100
   Call Contenu
   Dialog Title "Choix des tables et de l'intervalle (3/3)" width 220 Height 170
   Control statictext Position 10,12 width 60 Title "Table Selection >>"
   Control PopUpMenu Position 90,10 width 90 Height 10 id 31 Title from Variable NomTable Value A calling rec_colonne
   Control statictext Position 10, 72 Title "Somme :"
   Control Popupmenu Position 40,70 id 37 width 80 Title from Variable Nomcolto Value D 
   control button position 125,72 width 10 height 10 title "?" calling info3
   Control statictext Position 10,110 Title "Nom du Document en sortie :"
   Control edittext Position 105,108 width 80 Height 12 id 34 value nomdoc
   Control statictext Position 50,130 Title "Date :"
   Control edittext Position 75,128 width 35 id 35 value datedoc
   Control Button Position 60,90 width 100 Title "Choix du/des ID(s)" calling Btn id 302
   Control Button Position 20, 150  Title "<< Précédent" width 50 Calling Btn id 301
   Control Button Position 80, 150  Title "Annuler" width 50 Calling Btn id 100 calling cannul
   Control okButton Position 140, 150  Title "Terminer" width 50 Calling Btn Id 303
End Sub
'********************************************** DIALOGUE 4 *********************************************************
Sub Dlg4
  Compteur = 100
Dialog Title "Choix des ID"
 control groupbox  position 5,40 width 175 height 100 title "Liste des id"
 control multilistbox position 20,53 width 150 height 80 
 control groupbox  position 210,40 width 175 height 100 title "ID sélectionnés"
 control multilistbox position 224,53 width 150 height 80 
 control button position 186,50 width 20 height 12 title ">" 
 control button position 186,75 width 20 height 12 title "<" 
 Control Button Position 100, 150 Title "Retour" width 50 calling btn id 401
 Control Button Position 260, 150  Title "Valider" width 50 calling btn id 403
 Control Button Position 180, 150  Title "Annuler" width 50 calling btn id 100 calling cannul
End Sub

Dernière modification par Fabius (Wed 23 April 2008 11:18)

D'accord la dessus  mais je vois pas coment meme grace a un fetch first fetch next se positionner sur chacune des cellules de ma colonne sélectionnée. J'ai essayé une boucle mais je comprend pas comment je pourrais stocker tout les différents id de maniere a ce que ceux ci soient indépendant.

EDIT : J'ai reussi a remplir ma liste, je pense maintenant créer deux sub appeler par les boutons pour ajouter a la liste 2 la selection et supprimer de la liste 2. Par contre je ne sais pas du tout comment faire.

xx= "Select ID from "+nomtable(A)+" group by ID order by ID into bidule"
run command xx
k=selectioninfo(SEL_INFO_NROWS)
redim liste1(k)
For y = 1 to k
Fetch rec y from bidule
    uu =bidule.ID
    liste1(y)= uu
next

Dernière modification par Fabius (Wed 23 April 2008 16:04)

Merci de votre réponse. Cependant je vais continuer à vous "embêter" un peu puisque j'aimerais savoir ce que vous appelez une procédure handler ?
Voici mon code appelé par le multibox, celui ci me renvoi seulement une valeur de la liste1, j'ai donc essayé avec une boucles mais celle ci donne le meme resultat au final, mais boucle sur la meme observation

sub ajout
dim jajou as string
redim liste2(uu)
jajou = readcontrolvalue(50)
liste2(uu)=jajou
alter control 51 title from variable liste2()
eND SUB

Pour le vidage et le remplissage en fait je veux faire un bouton "tout remplir" un autre "tout vider" et les deux autres permettant d'ajouter au compte goutte.

J'ai fait ca pour le TOUT REMPLIR(tres basique mais semble efficace)

SUB PUTALL
alter control 51 title from variable liste1()
END SUB

et ca pour TOUT EFFACER:

SUB ERASALL
redim liste2(0)
alter control 51 title from variable liste2()
END SUB

Ca fonctionne mais es ce que je en risque pas d'avoir des problemes par la suite ?

Enfin derniere question une fois que l'utilisateur clique sur valider je voudrais une petite boite de dialogue qui lui dises combien d'ID il a sélectionné. Comment faire pour compter le nombre d'occurence présent dans liste2() au moment de la validation ?

Dernière modification par Fabius (Thu 24 April 2008 10:16)

Merci .

Effectivement le tout remplir est tentant a utiliser puisque vraiment simple mais le fait qu'il puisse créer des problemes m'inquiete.

Merci encore pour votre aide qui me permet d'avancer et d'entrevoir un peu plus la fin de mon programme

Si "modéliser" veut dire sélectionner et représenter, il suffit de remplir une variable chaine listID qui soit du genre
ID1,ID34,ID35,....ID999
- on part d'un listID vide et, en lisant de 1 à n=Ubound(liste2) les valeurs de liste2(), on a val_1=liste2(1) et listID=listID+val_1+"," jusqu'à  val_n= liste2(n) et listID=listID+val_n+",". Tout ça dans une boucle...ce qui veut dire qu'à la fin il faudra enlever la virgule finale de listID...!
- on fait un cmd="Select * From ma_table Where ID in ("+listID+") Into tutu" ...puis Run Command cmd
- on obtient une table "tutu" qu'on ajoute à la fenêtre carte (ou dont on fait une carte s'il n'y a pas de fenêtre carte ouverte)

Bonjour à tous et à toutes

Au risque de paraitre quelque peu lourd, je remonte ce sujet pour obtenir de l'aide sur ma gestion des ajout suppresion entre liste box. Merci d'avance

Cordialement

merci de votre réponse, mais personnelement je trouve cela moins ludique qu'a la plage. L'eclairage aujourd'hui se résume a un néon dans un bureau dans la grisaille parisienne, ca change d'un beau weeekend, le retour à la réalité est difficile ce matin. Ouinh je veux revoir ma Normandie

Plus sérieusement , je vais voir pour le Ubound j'ai regardé das l'aide Mapbaci ca a l'air assez facile d'utilisation. Par contre je ne comprend (toujours pas) pouquoi utiliser des sous variable plutot que de faire jouer la selection . Ca me parait simple mais je me rend comtpe que la logique derriere est moins drole

Voila ce qye j'ai fait pour tout ajouter mais ce qui me "choque c'est que j'en reviens encore à un liste2 = liste1.
De plus cela mets un certain temps dans mon exemple type (400 id différents)
et si on clique deux fois de suite dessus il recommence a charger pour remplir la liste

SUB PUTALL
FOR i=1 to ubound(liste1)
ReDim liste2(UBound(liste1))
liste2(i) = liste1(i)
alter control 51 title from variable liste2()
next
END SUB

Pour le reste je cherche la solution la plus simple mais j'avoue que meme avec votre aide j'ai du mal a comprendre le raisonement a suivre. Je m'y remet quand meme de suite

Cdt

Fab

Bon je vais laisser comme cela , ca fonctionne comme je le veux , j'ai meme reajouter des alter control sur les boutons pour eviter si il n'ya pas eu de modifs de pouvoir relancer plusieurs fois.

Pour ce qui est d'ajout simple ou multiple et de suppressions, je m'y perd un peu. Que me conseillez vous ? sachant que l'utilisateur pourra ajouter manuelement, rectifier ses éventuelles érreurs et ceci un grand nombre de fois.

You know what.?? Je n'y comprends rien
Je ne sais pas d'où sort cette variable k, je suppose sans en être sûr que vous en êtes à l'ajout partiel .... car contrairement à vous je suis en train de faire tout autre chose que ce programme !
Je propose que vous avanciez autant que vous pouvez et que vous soumettiez l'ensemble du code pour qu'on lève les blocages
Picorer à l'aveuglette, par petits bouts de code, devient vraiment trop astreignant
Prêt pour un coup de main, mais sur un programme exhaustif (même s'il ne marche pas) et commenté

Si je comprends: k c'est le nombre maximum des ID différents possibles pour être choisis. C'est aussi la taille de liste1()
Au moment du Sub ajout, liste2() contient z éléments, avec z <= k
A première vue je dirais:

Mais c'est surement long de vérifier, pour chaque élément de la multiliste des choix dans liste1(), s'il est déjà présent dans liste2() ...
Peut être faut-il remettre à la toute fin l'élimination des éventuels doublons ??

Moi aussi !! J'en viens à me demander s'il ne faudrait pas passer par une table provisoire, remplie avec le contenu de liste2() et qui servirait à re-remplir liste(2): sur une table on peut faire des regroupements et des tris que l'on ne peut pas faire (je crois) sur une variable liste...
A creuser

Désolé de remonter ce sujet une enieme fois, mais quelqu'un pourrait t'il m'eclairer afin que je puisse en finir avec ce code ?

Merci d'avance

Fabius

Quelque chose comme ça (tiré du code complet joint à mon dernier post):

Cette procédure "efface" doit être appelée par le bouton "<" , par un calling efface ...

Merci pour tout, le code fonctionne impecablement s'adapte bien au reste de mon programme.

Cependant j'aimerais toujours trier cette liste, votre solution ( la seule apparement) qui est de passer par une table afin de pouvoir interragir dessus me parait envisageable cependant comment peut on remplir une table a partir d'une liste ?
Il faut que je créer une table puis grace a un fetch first /fetch next je remplisse chaque ligne par une valeur de liste2(i) ?

Cordialement