+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 7 su 7

ListView e posizionamento righe e colonne.

  1. #1
    alexpita non  in linea Novello
    Ciao a tutti,
    vorrei chiedervi un aiuto!

    Sto cercando di cimentarmi con VB.net ed ho (come tutti i niubbi) dei problemi.

    non riesco a ottenere :

    
                While acsdr.Read() ' Ciclo tutti i record della tabella.
    
                    With ListView1.Items.Add("azienda")
                        .SubItems.Add(acsdr("azienda"))' campo azienda della tabella 
                        .SubItems.Add(acsdr("mail")) ' campo mail
                        .SubItems.Add(acsdr("telefono")) 
                        .SubItems.Add(acsdr("referente"))
                        .SubItems.Add(acsdr("telefono_ref"))
                        .SubItems.Add(acsdr("email_ref"))
                        .SubItems.Add(acsdr("note"))
                    End With
    
                End While
    
    La routine funziona bene ma i record non sono correttamente visualizzati nella listview, per favore cosa c'e' di sbagliato?
    In pratica mostra solo i primi due campi di ogni record affiancati scartando tutti gli altri!

    Grazie!
    Ultima modifica di alexpita; 17-04-2013 02:20 

  2. #2
    L'avatar di sistemista
    sistemista non  in linea Topo di biblioteca
    Posta la struttura della tabella e dovresti postare anche l'immagine della Listview,nota che non puoi allegare immagini in quanto hai pochi messaggi,puoi servirti di Fileserver gratuiti sul web tipo postimage.org,imageshack and so on.
    ℹ️ Leggi di pi su sistemista ...

  3. #3
    L'avatar di Cteniza
    Cteniza non  in linea Amanuense
    Ti mostro del codice di una mia "vecchia" prova.
    Fa uso del database northwind di access
    		Private Sub button1_Click(sender As Object, e As System.EventArgs)
    			listView1.Items.Clear()
    			listView1.GridLines = True
    			listView1.Clear()
    			listView1.Columns.Clear()
    			listView1.Columns.Add("ID", 50, HorizontalAlignment.Left)
    			listView1.Columns.Add("Contatto", 100, HorizontalAlignment.Left)
    			listView1.Columns.Add("Citta'", 100, HorizontalAlignment.Left)
    			listView1.Columns.Add("Telefono", 100, HorizontalAlignment.Left)
    
    			Dim cConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\Access\nwind.mdb;")
    
    
    			Dim custDA As New OleDbDataAdapter("SELECT * FROM customers", cConn)
    			cConn.Open()
    			Dim custDS As New DataSet()
    			custDA.Fill(custDS, "Customers")
    			cConn.Close()
    
    			' listView1.Clear();
    			For k As Integer = 0 To custDS.Tables("Customers").Rows.Count - 1
    				Dim dr As DataRow = custDS.Tables("Customers").Rows(k)
    				Dim item As New ListViewItem()
    				item.SubItems.Clear()
    				item.UseItemStyleForSubItems = False
    				item.Text = dr("CustomerID").ToString()
    				item.SubItems.Add(DirectCast(dr("ContactName"), String))
    				item.SubItems.Add(DirectCast(dr("City"), String))
    				item.SubItems.Add(DirectCast(dr("Phone"), String))
    				item.SubItems(0).BackColor = Color.Blue
    				listView1.Items.Add(item)
    			Next
    			For Each li As ListViewItem In listView1.Items
    				Dim it As ListViewItem = li
    				it.SubItems(1).BackColor = Color.Yellow
    			Next
    		End Sub
    
    ℹ️ Leggi di pi su Cteniza ...

  4. #4
    alexpita non  in linea Novello
    Quote Originariamente inviato da sistemista Visualizza il messaggio
    Posta la struttura della tabella e dovresti postare anche l'immagine della Listview,nota che non puoi allegare immagini in quanto hai pochi messaggi,puoi servirti di Fileserver gratuiti sul web tipo postimage.org,imageshack and so on.
    Ops, ecco:

    ImageShack® - Online Photo and Video Hosting

    ImageShack® - Online Photo and Video Hosting


  5. #5
    alexpita non  in linea Novello
    Quote Originariamente inviato da Cteniza Visualizza il messaggio
    Ti mostro del codice di una mia "vecchia" prova.
    Fa uso del database northwind di access
    		Private Sub button1_Click(sender As Object, e As System.EventArgs)
    			listView1.Items.Clear()
    			listView1.GridLines = True
    			listView1.Clear()
    			listView1.Columns.Clear()
    			listView1.Columns.Add("ID", 50, HorizontalAlignment.Left)
    			listView1.Columns.Add("Contatto", 100, HorizontalAlignment.Left)
    			listView1.Columns.Add("Citta'", 100, HorizontalAlignment.Left)
    			listView1.Columns.Add("Telefono", 100, HorizontalAlignment.Left)
    
    			Dim cConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\Access\nwind.mdb;")
    
    
    			Dim custDA As New OleDbDataAdapter("SELECT * FROM customers", cConn)
    			cConn.Open()
    			Dim custDS As New DataSet()
    			custDA.Fill(custDS, "Customers")
    			cConn.Close()
    
    			' listView1.Clear();
    			For k As Integer = 0 To custDS.Tables("Customers").Rows.Count - 1
    				Dim dr As DataRow = custDS.Tables("Customers").Rows(k)
    				Dim item As New ListViewItem()
    				item.SubItems.Clear()
    				item.UseItemStyleForSubItems = False
    				item.Text = dr("CustomerID").ToString()
    				item.SubItems.Add(DirectCast(dr("ContactName"), String))
    				item.SubItems.Add(DirectCast(dr("City"), String))
    				item.SubItems.Add(DirectCast(dr("Phone"), String))
    				item.SubItems(0).BackColor = Color.Blue
    				listView1.Items.Add(item)
    			Next
    			For Each li As ListViewItem In listView1.Items
    				Dim it As ListViewItem = li
    				it.SubItems(1).BackColor = Color.Yellow
    			Next
    		End Sub
    
    Grazie! La studio subito!

  6. #6
    L'avatar di gibra
    gibra non  in linea Very Important Person
    Quote Originariamente inviato da alexpita Visualizza il messaggio
    Ciao a tutti,
    vorrei chiedervi un aiuto!

    Sto cercando di cimentarmi con VB.net ed ho (come tutti i niubbi) dei problemi.

    non riesco a ottenere :

    
                While acsdr.Read() ' Ciclo tutti i record della tabella.
    
                    With ListView1.Items.Add("azienda")
                        .SubItems.Add(acsdr("azienda"))' campo azienda della tabella 
                        .SubItems.Add(acsdr("mail")) ' campo mail
                        .SubItems.Add(acsdr("telefono")) 
                        .SubItems.Add(acsdr("referente"))
                        .SubItems.Add(acsdr("telefono_ref"))
                        .SubItems.Add(acsdr("email_ref"))
                        .SubItems.Add(acsdr("note"))
                    End With
    
                End While
    
    La routine funziona bene ma i record non sono correttamente visualizzati nella listview, per favore cosa c'e' di sbagliato?
    In pratica mostra solo i primi due campi di ogni record affiancati scartando tutti gli altri!

    Grazie!
    Devi solamente aggiungere PRIMA le colonne :

    ListView1.Columns.Add ....

    ℹ️ Leggi di pi su gibra ...

  7. #7
    L'avatar di alextyx
    alextyx non  in linea Moderatore Globale
    Aggiungo che le colonne puoi anche aggiungerle dall'interfaccia grafica, in sede di progettazione, oltre che da codice
    ℹ️ Leggi di pi su alextyx ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Excel: da 150 righe e 13 colonne a 600 righe e 4 colonne!
    Da martina_locatelli nel forum Microsoft Excel
    Risposte: 8
    Ultimo Post: 15-11-2012, 08:03
  2. Editare le colonne di una ListView
    Da XxLicanxX nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 01-08-2010, 17:44
  3. Posizionamento listview dopo ricerca
    Da Diablo nel forum Visual Basic .Net
    Risposte: 2
    Ultimo Post: 20-05-2009, 07:03
  4. [VB6] Colonne LISTVIEW
    Da vbrookie nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 01-07-2006, 23:31
  5. Colonne controllo listview
    Da marco86 nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 09-01-2006, 19:56