listView problemer extra listitem

er det ikke bare sådan lvwRelevanteEmner.ListItems.Add(, , "test") = "test2" ?

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconusinglistviewcontrol.asp

take a look at this section
http://msdn.microsoft.com/library/en-us/vbcon98/html/vbconlistviewscenarioscompletecode.asp

does this help at all sf?

no .. :(

i have this code:
    lblRelevanteEmner.Caption = "Relevante projekter"
            lvwRelevanteEmner.ColumnHeaders(1).Text = "WBS kode"
            lvwRelevanteEmner.ColumnHeaders(1).Text = "Afdelingid"
            lvwRelevanteEmner.ColumnHeaders(1).Text = "Projektlederid"
            ssSql = "SQL....min sql..virker"
           
            Set rs = CDB.OpenRecordset(sSql, dbOpenDynaset)
            If Not rs.EOF Then
                Do Until rs.EOF
                    l = rs!projektID
                    If (l <> 0) Then
                   
                        Set li = lvwRelevanteEmner.ListItems.Add(, , rs!test1)
                        li.SubItems(1) = rs!test2 & ""
                        li.SubItems(2) = rs!test3 & ""
                        li.SubItems(3) = rs!test4 & ""
                        li.SubItems(4) = rs!test5 & ""
                        li.Tag = l
             
                    End If
                    rs.MoveNext
                Loop

den kommmer med.. invalid property value

in which line do you get the error?

I would use

Dim clmx as ColumnHeader

Set clmx = lvwRelevanteEmner.ColumnHeaders.Add(, , "WBS kode", lvwRelevanteEmner.Width /3)
Set clmx = lvwRelevanteEmner.ColumnHeaders.Add(, , "Afdelingid", lvwRelevanteEmner.Width /3)
Set clmx = lvwRelevanteEmner.ColumnHeaders.Add(, , "Projektlederid", lvwRelevanteEmner.Width /3)

otherwise it looks OK, but I have NO idea if your recordset has these fields!

if we go back to your question, isnt this (adding another item) on each loop of the

Do Until rs.EOF?

do nothin more with clmx  ?

?

det virker stadig ikke..

Is it possible for you to send me your program?

eksperten@NOSPAMsanthell.dk
remove NOSPAM

no sorry.. can't

not even if you remove "private data"?
Otherwise its hard to help!

have you tried debugging through the code and checking what EXACTLY gives the probem?

This is my code..it is a big program .. cant remove all "private data"

lblRelevanteEmner.Caption = "Relevante projekter"
lvwRelevanteEmner.ColumnHeaders.Add(, , "Afdelingid", lvwRelevanteEmner.Width /3)
lvwRelevanteEmner.ColumnHeaders.Add(, , "Projektlederid", lvwRelevanteEmner.Width /3)
            ssSql = "SQL....min sql..virker"
           
            Set rs = CDB.OpenRecordset(sSql, dbOpenDynaset)
            If Not rs.EOF Then
                Do Until rs.EOF
                    l = rs!projektID
                    If (l <> 0) Then
                   
                        Set li = lvwRelevanteEmner.ListItems.Add(, , rs!test1)
                        li.SubItems(1) = rs!test2 & ""
                        li.SubItems(2) = rs!test3 & ""
                        li.SubItems(3) = rs!test4 & ""
                        li.SubItems(4) = rs!test5 & ""
                        li.Tag = l
             
                    End If
                    rs.MoveNext
                Loop

you have show the code before

have you tried debugging through the code and checking what EXACTLY gives the probem????

which line gives the error???