Avatar billede bluestrike Nybegynder
10. oktober 2003 - 11:03 Der er 10 kommentarer og
1 løsning

Listview, subitem problem! Kan ikke finde fejlen.

Nu har jeg læst så godt som alle de indlæg jeg kan finde på nettet om listview subitem, uden at kunne gennemskue hvad det er jeg gør forkert. Jeg har set flere der har haft mit problem, og den måde de har løst det på, uden at løsningen virkede for mig.

Når det følgende stykke kode skal køres får jeg en error 380, "Invalid property value" på den første subitem linie.

Det skal lige siges at arrayet UserData er af typen String. Håber nogen kan skubbe mig i den rigtige retning med den her.

    Dim subLoopVariable As Integer
       
    While sidsterække + 1 > række
    subLoopVariable = 0
        UserForm3.ListView1.ListItems.Add række, , UserData(række, subLoopVariable)
        subLoopVariable = 1
        While subLoopVariable < 3
        UserForm3.ListView1.ListItems(række).SubItems(subLoopVariable) = UserData(række, subLoopVariable)
        subLoopVariable = subLoopVariable + 1
        Wend
        række = række + 1
    Wend

På forhånd tak.
Avatar billede hiks Nybegynder
10. oktober 2003 - 11:32 #1
hej

række skal starte fra 1 og det samme skal subLoopVariable! Ellers tror jeg den er der!

/hiks
Avatar billede hiks Nybegynder
10. oktober 2003 - 11:35 #2
aaah sorry så ikke lige du satte den lig 1.

jeg går und fra at du har lavet columns? og tilføjet dem i properties?

/hiks
Avatar billede bluestrike Nybegynder
10. oktober 2003 - 11:37 #3
Jeg har lige ændret subLoopVariable til 1 uden at det gjorde nogen form for forskel... :-(
Avatar billede bluestrike Nybegynder
10. oktober 2003 - 11:38 #4
Jeg har sat view til 3, det er hvad jeg har gjort, er der mere der skal gøres...
Avatar billede hiks Nybegynder
10. oktober 2003 - 11:40 #5
jeps du skal i din formview lige højreklikke og under properties er der et faneblad der hedder coloumn headers. Der tilføjer du så det antal du har som du har som max i din subLoopVariable!

du kan også lave dette i din kode inden du begynder at skrive til dit listview!

/hiks
Avatar billede bluestrike Nybegynder
10. oktober 2003 - 12:07 #6
Okay!! Jeg kan ikke finde det faneblad, så hvordan gør man det via koden.. ved dud et?
Avatar billede bluestrike Nybegynder
10. oktober 2003 - 12:08 #7
Hej.. fandt det.. øjeblik!
Avatar billede hiks Nybegynder
10. oktober 2003 - 12:10 #8
du kan prøve at sætte dette ind - har lige lavet en test der minder lidt om dit. så du kan evt. starte nyt projekt og tilføje et listview:

    Dim subLoopVariable As Integer
    Dim række As Integer
       
    subloopmax = 3
   
    For i = 1 To subloopmax
   
        ListView1.ColumnHeaders.Add i, , "Index" & i
    Next

   
    række = 1
    sidsterække = 100
   
    While sidsterække + 1 > række
        subLoopVariable = 0
        ListView1.ListItems.Add række, , række & ", " & subLoopVariable
        subLoopVariable = 1
        While subLoopVariable < subloopmax
            ListView1.ListItems(række).SubItems(subLoopVariable) = række & ", " & subLoopVariable
            subLoopVariable = subLoopVariable + 1
        Wend
        række = række + 1
    Wend
Avatar billede bluestrike Nybegynder
10. oktober 2003 - 12:13 #9
HAHA!! Stort fremskridt, nu får jeg mine data frem i min listview! Takker. Her får du dine point!
Avatar billede hiks Nybegynder
10. oktober 2003 - 12:15 #10
no problemo og thx!

/hiks
Avatar billede bluestrike Nybegynder
10. oktober 2003 - 12:46 #11
Du skal også have tak for dit kodeeksempel.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester