Limpiar Lista

02/02/2005 - 19:22 por andres | Informe spam
tengo una funcion que me asigna datos a una lista, al
parecer la sentencia listitems.clear no funciona pues
cada vez que la invoco me agrega mas columnheaders a la
lista, como hago para que no pase eso??

Codigo de la funcion:
Public Sub FillListView(ByRef rs1 As ADODB.Recordset,
ByRef lista As AxMSComctlLib.AxListView)
Dim LI As MSComctlLib.ListItem
Dim i As Short

lista.ListItems.Clear()

For i = 0 To rs1.Fields.Count - 1
lista.ColumnHeaders.Add(, , rs1.Fields.Item
(i).Name, 150)
Next

While Not rs1.EOF
LI = lista.ListItems.Add(, , CStr(rs1.Fields
(0).Value))
For i = 1 To rs.Fields.Count - 1
LI.SubItems(i) = rs1.Fields(i).Value
Next
rs1.MoveNext()
End While
End Sub

Preguntas similare

Leer las respuestas

#1 Jorge Serrano [MVP VB]
02/02/2005 - 22:55 | Informe spam
Hola Andrés,

prueba con:
ListView1.Items.Clear()

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"andres" wrote:

tengo una funcion que me asigna datos a una lista, al
parecer la sentencia listitems.clear no funciona pues
cada vez que la invoco me agrega mas columnheaders a la
lista, como hago para que no pase eso??

Codigo de la funcion:
Public Sub FillListView(ByRef rs1 As ADODB.Recordset,
ByRef lista As AxMSComctlLib.AxListView)
Dim LI As MSComctlLib.ListItem
Dim i As Short

lista.ListItems.Clear()

For i = 0 To rs1.Fields.Count - 1
lista.ColumnHeaders.Add(, , rs1.Fields.Item
(i).Name, 150)
Next

While Not rs1.EOF
LI = lista.ListItems.Add(, , CStr(rs1.Fields
(0).Value))
For i = 1 To rs.Fields.Count - 1
LI.SubItems(i) = rs1.Fields(i).Value
Next
rs1.MoveNext()
End While
End Sub



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida