Trie sur une collection

Forum destiné aux questions sur le développement : Formules, LotusScript, Java ...

Trie sur une collection

Messagepar kagura31 » 01 Juin 2010 à 14:03

Bonjour,

J'ai un agent qui recupère une collection par une vue.
J'aimerai pouvoir faire un tri sur cette collection.
Je m'explique :

Code : Tout sélectionner
Set colRapp = vwRapp.getAllDocumentsByKey( sDateDeb + sDomaine )


J'ai voulu faire :
Code : Tout sélectionner
Dim sStructure As String
sStructure = docDialog.getItemValue( "StructureRap" )(0)
Dim colRapp2 As NotesDocumentCollection

Set colRapp2 = Nothing

Set docCurrent = colRapp.getFirstDocument
While Not docCurrent Is Nothing
  If docCurrent.StructureLect(0) = sStructure Then
        Call colRapp2.AddDocument( docCurrent )
  End If
 Set docCurrent = colRapp.GetNextDocument(docCurrent)
Wend


J'ai une erreur, qui me dit "variable d'objet non définie" sur le "call colRapp2.AddDocument.."
Dernière édition par kagura31 le 02 Juin 2010 à 14:35, édité 1 fois.
kagura31
Apprenti-posteur
Apprenti-posteur
 
Message(s) : 115
Inscrit(e) le : 12 Avr 2006 à 15:08
Localisation : Lyon

Messagepar Michael DELIQUE » 01 Juin 2010 à 14:06

salut

trié une collection comme tu le fais est impossible

tu as 2 solution passer par une fonction de tri qui te renvois un variant => http://forum.dominoarea.org/tri-dune-co ... 20606.html

passer par un notesviewentrycollection su tu t'appuie sur une vue

un post récent sur le sujet => http://forum.dominoarea.org/trie-dune-n ... 25376.html
Cordialement

Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Avatar de l’utilisateur
Michael DELIQUE
Administrateur
Administrateur
 
Message(s) : 12183
Inscrit(e) le : 16 Déc 2004 à 10:36
Localisation : Paris/Cergy

Messagepar kagura31 » 02 Juin 2010 à 14:34

Bonjour,

J'ai trouvé la solution à mon problème.
Code : Tout sélectionner
Dim sStructure As String
sStructure = docDialog.getItemValue( "StructureRap" )(0)
Dim colRapp2 As NotesDocumentCollection

Set colRapp2= vwRapp.getAllDocumentsByKey( "Clef ke c sure kelle existe pas :p" )

Set docCurrent = colRapp.getFirstDocument
While Not docCurrent Is Nothing
  If docCurrent.StructureLect(0) = sStructure Then
        Call colRapp2.AddDocument( docCurrent )
  End If
 Set docCurrent = colRapp.GetNextDocument(docCurrent)
Wend
kagura31
Apprenti-posteur
Apprenti-posteur
 
Message(s) : 115
Inscrit(e) le : 12 Avr 2006 à 15:08
Localisation : Lyon

Messagepar Michael DELIQUE » 02 Juin 2010 à 14:37

re,

tu avais aussi cette solution

Call notesDocumentCollection.FTSearch( query$, maxDocs% )

qui permet de faire un select sur une collection
Cordialement

Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Avatar de l’utilisateur
Michael DELIQUE
Administrateur
Administrateur
 
Message(s) : 12183
Inscrit(e) le : 16 Déc 2004 à 10:36
Localisation : Paris/Cergy

Messagepar roubech » 02 Juin 2010 à 19:35

au hasard ?
Set colRapp2=new NotesDocumentCollection
Avatar de l’utilisateur
roubech
Modérateur
Modérateur
 
Message(s) : 4976
Inscrit(e) le : 01 Fév 2007 à 20:22
Localisation : Lille

Messagepar Michael DELIQUE » 02 Juin 2010 à 20:11

au derniere nouvelle il n'y avait pas de constructeur pour une NotesdocumentCollection
Cordialement

Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Avatar de l’utilisateur
Michael DELIQUE
Administrateur
Administrateur
 
Message(s) : 12183
Inscrit(e) le : 16 Déc 2004 à 10:36
Localisation : Paris/Cergy

Messagepar roubech » 02 Juin 2010 à 20:53

j'aurai tenté ^^
Avatar de l’utilisateur
roubech
Modérateur
Modérateur
 
Message(s) : 4976
Inscrit(e) le : 01 Fév 2007 à 20:22
Localisation : Lille

Messagepar Aquanotes » 03 Juin 2010 à 11:16

*** une 3ème année sans nicotine qui démarre :danse001: ***
Aquanotes
Posteur habitué
Posteur habitué
 
Message(s) : 295
Inscrit(e) le : 16 Déc 2004 à 12:13
Localisation : Niort

Messagepar Michael DELIQUE » 03 Juin 2010 à 11:29

et bien IBM a enfin entendu notre appel !

il ya un constructeur de collection à partir de la R8 cool
Cordialement

Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Avatar de l’utilisateur
Michael DELIQUE
Administrateur
Administrateur
 
Message(s) : 12183
Inscrit(e) le : 16 Déc 2004 à 10:36
Localisation : Paris/Cergy


Retour vers Développement

cron