Jag har en databas skapad med Visual Data Manager i VB6, i den har jag en tabell TBL_Dagbok med 9 st fält som jag vill ladda in i en listview,
det andra fältet är ett datum fält som jag vill att det sorteras efter.

Hur ska jag göra?Någon som vet?

Tack på förhand

//Tomas

Här kommer jag med en liten kurs i Listviewkontrollen.

Sample Code ===================================

Option Explicit

Private Sub Form_Load()
'Sätt listviewn till reportläge
ListView1.View = lvwReport
'Lägg till ColumnHeaders sätt både key och caption
'Lättare att jobba med kontrollen om man sätter key.
ListView1.ColumnHeaders.Add , "Kolumn 1", "Kolumn 1"
ListView1.ColumnHeaders.Add , "Kolumn 2", "Kolumn 2"
ListView1.ColumnHeaders.Add , "Kolumn 3", "Kolumn 3"
'Addera en lisitem. En listitem befinner sig alltid
'i den vänstraste kolumnen. I alla andra kolumner
'har du så kallade listsubitems. För att addera
'listsubitems kan det vara bra att ha en referens till
'listitemen på den rad du vill addera listsubitems.
Dim listX As ListItem
Set listX = ListView1.ListItems.Add(, "ListItem 1", "ListItem 1")
'addera listsubitems för denna listitem. Det vill
'säga lägg till saker i kolumn 2 och 3 och ......
listX.ListSubItems.Add , "ListSubItem 11", "ListSubItem 11"
listX.ListSubItems.Add , "ListSubItem 12", "ListSubItem 12"
'Lägg till listitem 2 och 3 med tillhörande listsubitems
Set listX = ListView1.ListItems.Add(, "ListItem 2", "ListItem 2")
listX.ListSubItems.Add , "ListSubItem 21", "ListSubItem 21"
listX.ListSubItems.Add , "ListSubItem 22", "ListSubItem 22"
Set listX = ListView1.ListItems.Add(, "ListItem 3", "ListItem 3")
listX.ListSubItems.Add , "ListSubItem 31", "ListSubItem 31"
listX.ListSubItems.Add , "ListSubItem 32", "ListSubItem 32"
End Sub

Sample Code ====================================

/peterh