Visualizzazione dei risultati da 1 a 5 su 5
  1. #1
    Utente di HTML.it
    Registrato dal
    Apr 2005
    Messaggi
    18

    Controllo Listview

    Scusate, ho un problema con il controllo listview.
    Va tutto bene fino al comando listsubitems, ed un messaggio di errore mi dice "limiti esauriti per l'indice".
    Qualcuno mi può aiutare ?
    Grazie tante.

    Do While Not rec.EOF

    lsthd.ListItems.Add , , rec!presidio
    lsthd.ListItems.Item(x1).ListSubItems(1).Text = rec!ID_hd
    lsthd.ListItems.Item(x1).ListSubItems(2).Text = rec!descrizione
    lsthd.ListItems.Item(x1).ListSubItems(3).Text = rec!processore
    lsthd.ListItems.Item(x1).ListSubItems(4).Text = rec!memoria
    lsthd.ListItems.Item(x1).ListSubItems(5).Text = rec!hard_disk
    lsthd.ListItems.Item(x1).ListSubItems(6).Text = rec!disco
    lsthd.ListItems.Item(x1).ListSubItems(7).Text = rec!note
    lsthd.ListItems.Item(x1).ListSubItems(8).Text = rec!utente
    lsthd.ListItems.Item(x1).ListSubItems(9).Text = rec!pwd

    x1 = x1 + 1
    rec.MoveNext

    Loop

  2. #2
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,463

    Moderazione

    Hai letto il Regolamento?

    Di quale linguaggio si tratta? VB6, VB.NET, ...?

    Ciao!
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

  3. #3
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Un esempio di codice corretto e' questo

    codice:
    Dim Item As ListItem
    
    Do While Not rec.EOF 
       Set Item = lsthd.ListItems.Add(, , rec!presidio)
       With Item
          .SubItems(1) = rec!ID_hd
          .SubItems(2) = rec!descrizione
          .SubItems(3) = rec!processore
          .SubItems(4) = rec!memoria 
          .SubItems(5) = rec!hard_disk 
          .SubItems(6) = rec!disco 
          .SubItems(7) = rec!note 
          .SubItems(8) = rec!utente 
          .SubItems(9) = rec!pwd 
       End With
       rec.MoveNext 
    Loop

  4. #4
    Utente di HTML.it
    Registrato dal
    Apr 2005
    Messaggi
    18
    Si tratta di vb6.
    Grazie. Ho risolto.

  5. #5
    ho lo stesso problema anche dopo aver adattato il codice secondo l'esempio di Oregon:

    codice:
        Dim Item As ListItem
        If Me.ComboMacchine.ListIndex > -1 Then
            Set Item = Me.ListaPassaggi.ListItems.Add
            Item.ListSubItems(1) = Macchina(Me.ComboMacchine.ListIndex + 1).Nome 'qui da quell'errore
            Item.ListSubItems(2) = LavoroTmp.QtaPrevista
        End If
    :master:

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.