problemilla con listview

[AlterElt]

Buenas!

Tengo un problemilla con un listview que no me acaba de mostrar los datos como yo quiero :S

os pongo el código antes de nada:

Código vb:

'%%%%%%%%%%%%%%%%%%%%%
        'Relleno el ListView de medidas
        'llenamos el ListView con las medidas
        '%%%%%%%%%%%%%%%%%%%%%
 
        ' Propiedades del ListView  
        With lvInicioMedidas
            .Items.Clear()
            .Columns.Clear()
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
            ' añadir los nombres de columnas  
            For c As Integer = 2 To TablaMedidas.Columns.Count - 1
                .Columns.Add(TablaMedidas.Columns(c).Caption)
            Next
        End With
 
        ' Añadir los registros de la tabla  
        ' La TablaMedidas empieza por 0 la numeración de ítems (SQLite)
        ' El ListView empieza por 1 la numeración de ítems (VB .net)
        With TablaMedidas
            'recorrer filas en TablaMedidas
            For f As Integer = 0 To .Rows.Count - 1
 
                'fila de items que agrego al ListView
                Dim fila As New ListViewItem '(TablaMedidas.Rows(f).Item(2).ToString)
 
                ' recorrer las columnas en TablaMedidas (a partir de la segunda) para construir cada fila
                For c As Integer = 2 To .Columns.Count - 1
                    If c = 2 Then 'si es una fecha (columna 2)
                        Dim fechaMedida As Date = TablaMedidas.Rows(f).Item(c).Date
                        fila.SubItems.Add(fechaMedida)
                    ElseIf c > 2 Then 'si es una medida (resto de columnas)
                        Dim medidas As Single = TablaMedidas.Rows(f).Item(c).ToString()
                        fila.SubItems.Add(medidas)
                    End If
                Next
                'meto datos en el ListView
                lvInicioMedidas.Items.Add(fila)
            Next
        End With
 

La situación en la siguiente:

Tengo una tabla TablaMedidas que contiene una consulta de la base de datos. En ella se incluyen varios campos:

id_medida, id_cliente, fecha, peso, lipocalibrador, cintura, etc (en total 15 columnas)

El caso es que en el ListView quiero mostrar una parte de esa tabla y no toda la tabla, en concreto quiero ocultar la id de la medida y la id del cliente. Es decir, solo quiero mostrar la fecha y las medidas correspondientes a esa fecha.

El caso es que tal y como lo tengo me muestra estos resultados:



Como veis me desplaza los datos una columna y no se porque. He probado de mil formas con el debugger, pero la verdad es que no veo el fallo. Lo que si que he visto es que el fallo podría estar en la línea

Código vb:

lvInicioMedidas.Items.Add(fila)
 

ya que con el debugger compruebo como se van metiendo los subitems correctamente en la variable fila (aunque realmente no puedo ver (o no se como) todo el contenido de fila)

Agradecería vuestra ayuda para solucionar este problema.

Saludos y gracias

[AlterElt]

cucu! help!

[gnzsoloyo]

En realidad no hay ningún error: En un ListView, todos los elementos que contiene son tratados como String, y por tanto se ajustan a la izquierda.
Hay, de todos modos, una propiedad de la columna que es HorizontalAlignment, la cual puedes configurar para que se ajuste al centro o a la derecha. El único problema es que como es una propiedad de la columna, también hará que el título se ajuste de esa forma.

Una forma simple de configurar tus columnas es en el mismo diseño del listview, o si lo quieres hacer por código sería en esta parte:

Código vb.net:

For c As Integer = 2 To TablaMedidas.Columns.Count - 1
            .Columns.Add(TablaMedidas.Columns(c).Caption, 70, HorizontalAlignment.Right)
Next
 

Ahora bien: Para usar esta forma del método necesitas poner sí o sí el ancho (Width) de la columna. De allí ese "70" que aparece en segundo lugar.
En tu caso ponle el ancho que quieras.

[AlterElt]

gnzsoloyo, eres grande! jeje pero esta vez o no me he sabido explicar o no me has entendido bien jeje

He probado añadiendo tu código y no he podido solucionar el problema. Yo creo que el asunto esta en como se meten los datos en el listview, más que en la distribución de las columnas.

Vamos, que el problema creo que viene dado porque no añado correctamente al listview los elementos o algo por el estilo. Aquí:

Código vb:

fila.SubItems.Add(fechaMedida)
 

o bien aquí:

Código vb:

lvInicioMedidas.Items.Add(fila)
 

No se si es que entran desordenados o me los inserta directamente en la posición 2 en vez de en la 1, no se...

Raro raro

Al final lo que he hecho es esto:

Código vb:

'%%%%%%%%%%%%%%%%%%%%%
        'Relleno el ListView de medidas
        'llenamos el ListView con las medidas
        '%%%%%%%%%%%%%%%%%%%%%
 
        ' Propiedades del ListView  
        With lvInicioMedidas
            .Items.Clear()
            .Columns.Clear()
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
            ' añadir los nombres de columnas  
            For c As Integer = 2 To TablaMedidas.Columns.Count - 1
                .Columns.Add(TablaMedidas.Columns(c).Caption, 70, HorizontalAlignment.Center)
            Next
        End With
 
        ' Añadir los registros de la tabla  
        With TablaMedidas
            For f As Integer = 0 To .Rows.Count - 1
 
                Dim fila As New ListViewItem(TablaMedidas.Rows(f).Item(2).ToString)
                ' recorrer las columnas  
                For c As Integer = 3 To .Columns.Count - 1
 
                    'If c = 3 Then 'si es una fecha (columna 2)
                    '    Dim fechaMedida As Date = TablaMedidas.Rows(f).Item(c).Date
                    '    fila.SubItems.Add(fechaMedida)
                    'ElseIf c > 3 Then 'si es una medida (resto de columnas)
                    '    Dim medidas As String = TablaMedidas.Rows(f).Item(c).ToString()
                    '    fila.SubItems.Add(medidas)
                    '    'fila.SubItems(c) = medidas
                    'End If
                    Dim medidas As String = TablaMedidas.Rows(f).Item(c).ToString()
                    fila.SubItems.Add(medidas)
 
                Next
                lvInicioMedidas.Items.Add(fila)
            Next
        End With
 

así me lo muestra bien, pero el problema que tengo es que la fecha me la muestra en el formato DD/MM/YYYY HH:HH:HH, cuando yo solo quiero DD/MM/YYYY... he probado cambiando a date aquí:

Código vb:

Dim fila As New ListViewItem(TablaMedidas.Rows(f).Item(2).ToString)
 

dejándolo así:

Código vb:

Dim fila As New ListViewItem(TablaMedidas.Rows(f).Item(2).Date)
 

Pero me da un error:

Código vb:

Error   1   Error de resolución de sobrecarga porque ninguna de las funciones 'New' a las que se tiene acceso se puede llamar sin una conversión de restricción:
    'Public Sub New(group As System.Windows.Forms.ListViewGroup)': El parámetro 'group' correspondiente al argumento se reduce de 'Object' a 'System.Windows.Forms.ListViewGroup'.
    'Public Sub New(items() As String)': El parámetro 'items' correspondiente al argumento se reduce de 'Object' a '1-matriz dimensional de String'.
    'Public Sub New(text As String)': El parámetro 'text' correspondiente al argumento se reduce de 'Object' a 'String'.   C:\Users\*\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\WindowsApplication1.vb 256 21  WindowsApplication1
 

gracias por la respuesta en cualquier caso

EDITO:

Bueno, tocando, tocando... he dado con la solución:

Ahí va:

Código vb:

'%%%%%%%%%%%%%%%%%%%%%
        'Relleno el ListView de medidas
        'llenamos el ListView con las medidas
        '%%%%%%%%%%%%%%%%%%%%%
 
        ' Propiedades del ListView  
        With lvInicioMedidas
            .Items.Clear()
            .Columns.Clear()
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
            ' añadir los nombres de columnas  
            For c As Integer = 2 To TablaMedidas.Columns.Count - 1
                .Columns.Add(TablaMedidas.Columns(c).Caption, 70, HorizontalAlignment.Center)
            Next
        End With
 
        ' Añadir los registros de la tabla  
        With TablaMedidas
            For f As Integer = 0 To .Rows.Count - 1
                'declaro la llamada a la columna uno
                Dim col1 As String = TablaMedidas.Rows(f).Item(2).Date
 
                Dim fila As New ListViewItem(col1)
                ' recorrer las columnas  
                For c As Integer = 3 To .Columns.Count - 1
 
                    'If c = 3 Then 'si es una fecha (columna 2)
                    '    Dim fechaMedida As Date = TablaMedidas.Rows(f).Item(c).Date
                    '    fila.SubItems.Add(fechaMedida)
                    'ElseIf c > 3 Then 'si es una medida (resto de columnas)
                    '    Dim medidas As String = TablaMedidas.Rows(f).Item(c).ToString()
                    '    fila.SubItems.Add(medidas)
                    '    'fila.SubItems(c) = medidas
                    'End If
                    Dim medidas As String = TablaMedidas.Rows(f).Item(c).ToString()
                    fila.SubItems.Add(medidas)
 
                Next
                lvInicioMedidas.Items.Add(fila)
            Next
        End With
 

Saludos!

[gnzsoloyo]

Vamos a hacer una pequeña pulida.
Como te dije, todos los objetos que van en cada línea de un ListView son en realidad Strings, y como tales los tienes que poner.
Pero además, cuando creas el ListViewItem, en realidad estás creando también el primer Subitem. Los demás dependen de él. Por eso, que vuelvas a poner el SubItem(0) es redundante.
Por otra parte, el problema de formato de fecha es un tema de regionalización de la PC (administrado por el Namespace System.Globalization), y del tipo de dato usado. En mi experiencia, es mejor indicar el formato manualmente para evitar errores, por ello esto funcionaría bien:

Código vb.net:

'%%%%%%%%%%%%%%%%%%%%%
        'Relleno el ListView de medidas
        'llenamos el ListView con las medidas
        '%%%%%%%%%%%%%%%%%%%%%
 
        ' Propiedades del ListView  
        With lvInicioMedidas
            .Items.Clear()
            .Columns.Clear()
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
            ' añadir los nombres de columnas  
            For c As Integer = 2 To TablaMedidas.Columns.Count - 1
                .Columns.Add(TablaMedidas.Columns(c).Caption, 70, HorizontalAlignment.Center)
            Next
        End With
 
        ' Añadir los registros de la tabla  
        Dim fila As New ListViewItem()
        Dim col1 As String
        With TablaMedidas
            For f As Integer = 0 To .Rows.Count - 1
                'declaro la llamada a la columna uno
                col1 = Convert.ToDateTime(TablaMedidas.Rows(f).Item(2)).ToString("dd/MM/yyyy")
                ' recorrer las columnas  
                fila = lvInicioMedidas.Items.Add(col1)
                For c As Integer = 1 To .Columns.Count - 1
                    fila.SubItems.Add(TablaMedidas.Rows(f).Item(c).ToString())
                 Next
            Next
        End With
 

[AlterElt]

Iniciado por gnzsoloyo

cuando creas el ListViewItem, en realidad estás creando también el primer Subitem. Los demás dependen de él. Por eso, que vuelvas a poner el SubItem(0) es redundante.

Esa era la clave que no sabía jeje