Hur sorterar men en listview a - ö/ö - a alla sorteringar jag hittar sorterar endast på a - z
Tack
Sh

Hej

om du sätter propertien listview1.sorted=true
kommer listviewn att sorter även å,ä,ö i rätt ordning

// Nettan

Hej Nettan
Nja - listview1.sorted properties är satt till true och och den rackarn sorterar endast på a-z. Jag har även lagt in så att man kan sortera
kolumnerna genom att klicka på kolumnrubriken, kod jag tagit från Tips & tricks, men samma problem dyker upp där.

///
Sh

Vilken VB version, och version av microsoft.common.controls har du?

Det verkar ju mysko eftersom jag bara skapade ett projekt..la till listviewn..fyllde den och den sorterade helt riktigt.

Kanske är den nån språkinställning eller nåt sånt ? :-)

Nettan

Hej Nettan

Jag har Common Dialog control 6.0 / VB 6.0 med SP5 installerat.

Mitt eländiga projekt där jag inte får ordning på sorteringen i Listview
är att jag byggt upp den med hjälp av en treeview(där sorteringen fungerar) är att jag går upp till AS400 med hjälp av en SQL fråga för att hämta ner material för att fylla Treeview resp. Listview med data,
dvs. den ska fungera som Windows utforskaren vilken den också gör förutom på den eländiga sorteringen på å,ä,ö i ListView.

Jag fyller de bägge kontrollerna beroende på vilken nod användaren klickar på detta beroende på svarstider i AS400.

SH

Hur många kolumner har du i din listView ??
Kolla på kontrollpanelen -> Reginal Options vilka inställningar du har.
Du bör ju ha inställ på svenska.

/peterh

Hej Peterh

Jag har två till tre kolumner där den första innehåller text till lägsta nivån då den blir alfanumeriskt och den kolumn nummer två blir alfanumerisk, i de andra nivåerna är kolumn två och tre alfanumerisk.

I kontrollpanelen och reginal options är det svensk inställning.

Vad som får mig så fögrymad är att treeview jag har sorterar rätt men inte listView

////SH

Om du inte hittar nån annan lösning så kan du ju sortera den själv.

Leif P

Mina listboxar sorterar rätt i alla fall.

Så jag har nog uttömt mina idéer.

/peterh

Hej
Har följt Era inlägg var tvungen att kolla.
Min ListView sorterar Ö Å Ä som O A A.
Djä........ mystiskt. Vb6 Sp 5

En av lösningar (inget bra men vad fae...... gör man) är

'List1 är en dummy Sorted = True, Visible = False
'ListView1 Sorted = False
Dim i As Long
List1.AddItem "Andersson"
List1.AddItem "Persson"
List1.AddItem "Österberg"
List1.AddItem "Åkesson"
List1.AddItem "Änglamark"

For i = 0 To List1.ListCount - 1
ListView1.ListItems.Add = List1.List(i)
Next 'i

mvh
Sven

Hej alla som svarat

Jag har en fråga till er som det fungerar för vilket SP har ni installerat
min tanke är att problem finns där att söka.

M V H
SH

Jaha det var en listview ni snackade om....... Jag ögnade förut ogenom
och fick för mig att det var en listbox ni skrev om. Men nu har jag testat
att sortera en listview. Inga problem hos mig. Jag använde följande kod.
Klicka sedan på columnheadersarna så sorterar den. För mig sorterar den
fullständigt korrekt.

Option Explicit

Private Sub Form_Load()
ListView1.Sorted = True

ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Col1"
ListView1.ColumnHeaders.Add , , "Col2"
ListView1.ColumnHeaders.Add , , "Col3"

Dim listX As ListItem
Set listX = ListView1.ListItems.Add(, , "ÖÖ")
listX.ListSubItems.Add , , "ÖA"
listX.ListSubItems.Add , , "ÖB"
listX.ListSubItems.Add , , "ÄC"

Set listX = ListView1.ListItems.Add(, , "ÅÅ")
listX.ListSubItems.Add , , "ÅD"
listX.ListSubItems.Add , , "ÄE"
listX.ListSubItems.Add , , "ÖF"

Set listX = ListView1.ListItems.Add(, , "ÄÄ")
listX.ListSubItems.Add , , "ÖG"
listX.ListSubItems.Add , , "ÖH"
listX.ListSubItems.Add , , "ÖI"

Set listX = ListView1.ListItems.Add(, , "ÄÄ")
listX.ListSubItems.Add , , "ÄJ"
listX.ListSubItems.Add , , "ÅK"
listX.ListSubItems.Add , , "ÄL"

Set listX = ListView1.ListItems.Add(, , "ÄÄ")
listX.ListSubItems.Add , , "ÅM"
listX.ListSubItems.Add , , "ÄN"
listX.ListSubItems.Add , , "ÖO"

Set listX = ListView1.ListItems.Add(, , "ÖÖ")
listX.ListSubItems.Add , , "ÅP"
listX.ListSubItems.Add , , "ÖQ"
listX.ListSubItems.Add , , "ÄR"


Set listX = ListView1.ListItems.Add(, , "ÅÄ")
listX.ListSubItems.Add , , "ÖS"
listX.ListSubItems.Add , , "ÄT"
listX.ListSubItems.Add , , "ÖU"

Set listX = ListView1.ListItems.Add(, , "ÄÖ")
listX.ListSubItems.Add , , "ÄV"
listX.ListSubItems.Add , , "ÄX"
listX.ListSubItems.Add , , "ÄY"

Set listX = ListView1.ListItems.Add(, , "ÅÖ")
listX.ListSubItems.Add , , "ZZ"
listX.ListSubItems.Add , , "ÅÅ"
listX.ListSubItems.Add , , "ÄÄ"

Set listX = ListView1.ListItems.Add(, , "ÖÅ")
listX.ListSubItems.Add , , "ÖÖ"
listX.ListSubItems.Add , , "ÄB"
listX.ListSubItems.Add , , "ÅC"

Set listX = ListView1.ListItems.Add(, , "ÅU")
listX.ListSubItems.Add , , "ÅD"
listX.ListSubItems.Add , , "ÖE"
listX.ListSubItems.Add , , "ÄB"

Set listX = ListView1.ListItems.Add(, , "ÄA")
listX.ListSubItems.Add , , "ÖG"
listX.ListSubItems.Add , , "ÄI"
listX.ListSubItems.Add , , "ÅL"


End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.SortKey = ColumnHeader.Index - 1
End Sub

/peterh

Som jag rekommenderade tidigare så varför inte sortera själv?

Fördelen med det är ju att man kan själv bygga sortering special anpassad för just den column som blev klickad på.

Jag lade in ett litet demo prog på hur man skulle kunna göra det under Common controlls / listview som heter Sortera listview själv.

Utan special för vissa kolumner.

Leif P

Hej

För att testa Leifs demo så måste koden ändras lite.
Att enbart använda ÅÄÖ bevisar bara att ÅÄÖ sorteras korrekt inbördes.

Man måste ha med minst en bokstav till för att se om dom sorteras korrekt i förhållande till andra bokstäver.

I funktionen:
Public Function GetMyString() As String

Så ändra raden:
lChar = Int((3 * Rnd) + 91) 'With å, ä ,ö only

till:
lChar = Int((4 * Rnd) + 90) 'With å, ä ,ö only

Ditt demo funkar utmärkt på min installation.
Win 98, VS 6.0, SP 5

Fast även tipset som Sören troligen använt fungerar klockrent.

Sören, kan någon installation du gjort nedgraderat din servicepack.
Du kanske skall prova med att installera om SP5.

Mvh/Olof

Hej alla som svarat

Jag har testat Leif P:s lösning och den fungerar utmärkt så ett tack till
alla som tagit del av mitt problem och speciellt då Leif P.

M V H
SH

Bara roligt om det var andvändbart! ;-)

Leif P