[VB] Popolare una ListView multicolonna

[w_t]

Come popolare una "ListView" dove ho creato al suo interno una visulizazione a multicolonna, non so come inserire i dati giusti nella giusta colonna:

ho 10 colonne: Nome, Cognome, Eta', Indirizzo, etc...
estraggo i dati con:
--------------------------------------------------------------------
conn.Open()
Dim comm As New OleDbCommand("Select * From Clienti", conn)
Dim read As OleDbDataReader = comm.ExecuteReader
While read.Read()
ListView1.Items.Add(read("Nome"))
End While
conn.Close()
---------------------------------------------------------------------

Ma in questo modo popolo solo la prima colonna.........

[sebamix]

conn.Open() 
Dim comm As New OleDbCommand("Select * From Clienti", conn) 
Dim read As OleDbDataReader = comm.ExecuteReader 
Dim pippo as ListItem
While read.Read() 
set Pippo=ListView1.Items.Add(read("Nome"))
pippo.subitems(1)="Colonna #2"
...
End While 
conn.Close()

Ho provato la ListView allo SMAU con .NET (una delle poche cose sinimli a VB6) e così dovrebbe funzionare.

[w_t]

Mi da errore su Subitems(1), ho provato a cancellare e riscrivere ma non lo trova nel completamento automatico, questo signifiva che non e' presente questo metodo, forse ci vuole qualche Namesystem particolare???

io ho trovato questo:




listView1.Activation = ItemActivation.Standard
listView1.Columns.Add("Codice", 100, HorizontalAlignment.Left)
listView1.Columns.Add("Prodotto", 100, HorizontalAlignment.Left)
listView1.Columns.Add("Quantita", 100, HorizontalAlignment.Left)
listView1.Columns.Add("Prezzo", 100, HorizontalAlignment.Left)
listView1.Columns.Add("Iva", 100, HorizontalAlignment.Left)
listView1.Columns.Add("Descrizione", 100, HorizontalAlignment.Left)

Dim Codice As String
Dim Prodotto As String
Dim Quantita As String
Dim Prezzo As String
Dim Iva As String
Dim Descrizione As String
Dim Immagine As String
conn.Open()
Dim comm As New OleDbCommand("Select * From Prodotti", conn)
Dim read As OleDbDataReader = comm.ExecuteReader
While read.Read()
Codice = read("Codice")
Prodotto = read("Prodotto")
Quantita = read("Quantita")
Prezzo = read("Prezzo")
Iva = read("Iva")
Descrizione = read("Descrizione")
Immagine = read("Immagine")
Dim Item As New System.Windows.Forms.ListViewItem(Codice)
Dim itms1 As New System.Windows.Forms.ListViewItem.ListViewSubItem( )
Dim itms2 As New System.Windows.Forms.ListViewItem.ListViewSubItem( )
Dim itms3 As New System.Windows.Forms.ListViewItem.ListViewSubItem( )
Dim itms4 As New System.Windows.Forms.ListViewItem.ListViewSubItem( )
Dim itms5 As New System.Windows.Forms.ListViewItem.ListViewSubItem( )
Item.SubItems.Add(Prodotto)
Item.SubItems.Add(Quantita)
Item.SubItems.Add(Prezzo)
Item.SubItems.Add(Iva)
Item.SubItems.Add(Descrizione)
listView1.Items.Add(Item)
End While
conn.Close()




funziona ma guarda che roba...........:master: