none
Problemas con el ListViewItem y SubItem RRS feed

  • Pregunta

  • Hola a todos! Tengo un problema con los Items y SubItems del ListView

    El codigo que aplico es este:

    Dim header1, header2 As New ColumnHeader
            header1.Text = headCorteTiempo(string)
            header1.Width = 70
            header1.TextAlign = HorizontalAlignment.Left
            header2.Text = headTipoTransito(string)
            header2.Width = 70
            header2.TextAlign = HorizontalAlignment.Left

            ListView1.Columns.Add(header1)
            ListView1.Columns.Add(header2)

            For i = 1 To Me.collConsulta.Count (coleccion de objetos que quiero ver en el ListView)
                Dim item As New ListViewItem
                Select Case Me.collConsulta.tipoCorteTemporalInt
                    Case ERP.EnterpriseRules.MENSUAL
                        item = Me.ListView1.Items.Add(MonthName(Me.collConsulta.Item(i).corteTiempo))
                        'Me.ListView1.Items.Add(i, "", MonthName(Me.collConsulta.Item(i).corteTiempo))
                    Case Else
                        item = Me.ListView1.Items.Add(Val(Me.collConsulta.Item(i).corteTiempo))
                        'Me.ListView1.ListItems.Add(i, "", Val(Me.collConsulta.Item(i).corteTiempo))
                End Select
                item.SubItems.Add(Me.collConsulta.Item(i).corteTransito)
                'Me.ListView1.Items(i).SubItems.Add(1, "", Me.collConsulta.Item(i).corteTransito)
                item.SubItems.Add(Val(Me.collConsulta.Item(i).valor))
                'Me.ListView1.ListItems(i).ListSubItems.Add(2, "", Val(Me.collConsulta.Item(i).valor))
            Next i

            Select Case Me.collConsulta.tipoCorteTemporalInt
                Case ERP.EnterpriseRules.ANUAL
                    Me.ListView1.Sorting = SortOrder.Ascending
                    Me.ListView1.Sort()
                    'Me.ListView1.Sorted = True
                Case ERP.EnterpriseRules.MENSUAL
                    Me.ListView1.Sorting = SortOrder.Ascending
                    Me.ListView1.Sort()
                    'Me.ListView1.Sorted = True
                Case Else
                    Me.ListView1.Sorting = SortOrder.None
                    Me.ListView1.Sort()
                    'Me.ListView1.Sorted = False
            End Select

    Obviamente en el ListView no me aparecen los header, y si los datos pero solo el del item ("cortetiempo")

    Gracias de antemano!

    viernes, 9 de noviembre de 2012 14:49

Respuestas

  • pero defines el lsitview como modo Details ? porque recuerda que el listview por defecto no se muestra como grid

    debes cambiar la propiedad View

    listView1.View = View.Details;


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    viernes, 9 de noviembre de 2012 15:45

Todas las respuestas