Foro de elhacker.net

Hola amigos, estoy utilizando el siguiente código para llenar un Listview pero me carga a medias la tabla y mi pregunta es como puedo agregarle el campo Descripcion y el campo Activo :-\

Dim cmdselect As New OleDb.OleDbCommand("Select *  From Rol where Activo=yes", conn)
            Dim datareader As OleDb.OleDbDataReader = cmdselect.ExecuteReader()
 
            While datareader.Read()
                '=======Agregar elementos al ListView ========
                Dim subelemento As ListViewItem
                'Dim codigo As String = datareader("idRol")
                Dim codigo As String = datareader("idRol")
 
                subelemento = New ListViewItem(codigo)
                subelemento.SubItems.Add(datareader("Nombre"))   
                'como seria esta linea para agregar Descripcion
                'como seria esta linea para agregar Activo
                ListView1.Items.Add(subelemento)
 
            End While
 
            datareader.Close()
            conn.Close()

(http://img11.imageshack.us/img11/5706/dibujosgw.jpg) (http://img11.imageshack.us/i/dibujosgw.jpg/)

                subelemento = New ListViewItem(codigo)
                subelemento.SubItems.Add(datareader("Nombre"))   
                subelemento.SubItems.Add(datareader("Descripcion"))  
                subelemento.SubItems.Add(datareader("Activo"))  
                ListView1.Items.Add(subelemento)

Lo que no entiendo es como sabes agregar una columna y el resto no :huh:

Saludos

Recuerda poner el ListView en modo Detalle.

Un saludo

Gracias si funciona!!! :rolleyes: