Hej
Jag sitter här och försöker att lösa ett problem.
det är så att jag skall använda en listview i mitt lilla projekt
Om jag förklarar vad jag skall göra så är det på det här viset att
ifrån en databas(access) listar tre olika fält med data som jag vill
sotrera i en listview.
ex:
Tid Produkt namn
7:00 bad nisse
8:00
9:00 gym pelle
10:00

För ex Tid 8:00 som inte finns i databasen än men skall visas som Tid 8:00 i alla fall fast den är tom.
Dörför att när man clickar på tid 8:00 så kommer man till en boknings
sida.

Mvh
Tobbe

Här är ett exempel som fisar hur man kan göra det ifrån vb.
Alternatift kan du använda en tabell med de datum du alltid vill visa och göra en Left Join mellan dessa.


Option Explicit

Private Sub Command1_Click()
Dim vDate As Date
Dim strSQL As String
Dim strConnection As String
Dim vItem As ListItem
Dim rsTemp As ADODB.Recordset
Dim fldTid As ADODB.Field
Dim fldProdukt As ADODB.Field
Dim fldNamn As ADODB.Field

strSQL = "SELECT Table1.*" + vbCrLf + _
"FROM Table1" + vbCrLf + _
"ORDER BY Table1.Tid"

strConnection = "Provider=Microsoft.Jet.OLEDB.3.51;" + _
"Data Source=" & App.Path & "\DataBase.mdb"

Set rsTemp = New ADODB.Recordset

rsTemp.Open strSQL, _
strConnection, _
adOpenForwardOnly, _
adLockReadOnly, _
adCmdText

Set fldTid = rsTemp("Tid")
Set fldProdukt = rsTemp("Produkt")
Set fldNamn = rsTemp("Namn")


For vDate = #7:00:00 AM# To #10:00:01 AM# Step #1:00:00 AM#
Set vItem = ListView1.ListItems.Add(, , Format$(vDate, "hh:mm"))
If rsTemp.EOF Then
Else
If fldTid > vDate Then
Else
vItem.SubItems(1) = "" & fldProdukt
vItem.SubItems(2) = "" & fldNamn
rsTemp.MoveNext
End If
End If
Next
End Sub

Tack för svaret men det var inte riktigt så som jag har tänkt mig.
Kanske inte går att genomföra med en listview???
men tack ändå
Tobbe