Hej
Jag vill att i en listview ha så att man har en lista i andra columnen
som börjar på 700 + 15 min osv till 16:30 hittade den här snutten
men jag har försökt att andra så att den har en kvarts mellanrum i tiderna men får inte till det.
Dim i As Long
Dim item As ListItem
With ListView1
For i = 700 To 1630
Set item = .ListItems.Add(, , i)
Next
End With

om det är någon som kan hjälpa mig!!!

Tack på för hand
Tobbe

Hej testa denna kod.....

=============================================

'Inställningar för listviewn, jag har döpt om
'kontrollen till LW.
LW.View = lvwReport
'Lägg till kolumner
LW.ColumnHeaders.Add , , "Kolumn 1"
LW.ColumnHeaders.Add , , "Kolumn 2"
'Lägg till en item i listviewn och lägg till tider i kolumn 2
Dim listX As ListItem
Dim tid As Date
Dim i As Integer
tid = "07:00"
While (Format(tid, "HH:MM") < "16:45")
i = i + 1 'Bara för att räkna upp items
Set listX = LW.ListItems.Add(, , "Item " & CStr(i))
listX.ListSubItems.Add , , Format(CStr(tid), "HH:MM")
tid = DateAdd("n", 15, tid)
Wend

=============================================

/peterh

Du kan ju testa något sånthär:

Private Sub Form_Load()
Dim vDate As Date
For vDate = #7:00:00 AM# To #4:30:00 PM# Step #12:15:00 AM#
ListView1.ListItems.Add , , vDate
Next
End Sub

Men han ville ju ha tiderna i kolumn 2 så då kan du ju inte köra en
ListView1.listitem.add då kommer dom ju i kolumn1 ju....

/peterh

Ville bara visa loop principe... :O)

Tack för alla fina svar
en fråga till
kan man på förhand bestämma vad som skall stå ex i kolumn2 row1
osv.till ex row30

mvh tobbe

Innan du kan infoga något alls i en kolumn annan än den första, måste du lägga till en listitem.

Alltså lägger du till 10 listitems kan du också skriva i kolumn2 för dessa listitems. Försöker du lägga till data i kolumn två för en listitem som inte finns då får du ett fel!