Le mardi, 8 avr 2008, à 09:58 Europe/Paris, Robin de Kat a écrit :
Le 7 avr. 08 à 23:10, roland poulard a écrit :
Autre(s) piste(s) à suivre :
la colonne servant au tri est-elle bien renseignée par le drop ?
Que voulez-vous dire?
par exemple, pour faire un tri sur une colonne contenant des dates,
une solution a été de créer une colonne invisible contenant ces mêmes
dates mais au format DateSQL ( aaaa-mm-jj )
mais comme il n'y a qu'une colonne, cette remarque ne tient pas.
ListBox1.SortedColumn=0 est dans l'événement "open" de la listbox
Cela dit, je n'ai qu'une colonne.
les données qu'elle contient sont-elles de même type ?
Oui, c'est du texte.
J'ai repris le code d'un message precedent :
Sub DropObject(<paramètres>)
dim i As Integer
do
ListBox1.AddRow Obj.Text
if not obj.NextItem then Exit
Loop
ListBox1.Sort
End Sub
Dans le cas d'une sélection multiple dans la listeBox source, il semble
ajouter une row vide dans la listebox resultat
Le code ci-dessous pris dans l'exemple Examples:Drag and Drop:Listeboxes
Do
If Obj.TextAvailable then
Me.AddRow(Obj.Text)
End if
Loop until Not obj.NextItem
n'apporte pas cette ligne vide
|