Programación General > Visual Basic 6.0 e inferiores

 Re: Error al llenar listview

(1/1)

Jorge López:
amigos tengo este proc para llenar un listview con lo datos dela tabla clientes, pero al llamrlo se detiene en

tLi1.SubItems(1) = .Fields("ncliente") & ""

y devuelve el error "380 el valor de la propiedad no es valido"


alguien podría decirme por que?

Private Sub llena_lista_clie()
    Dim RT1 As Recordset
    Dim tLi1 As ListItem
    Set tRs1 = a.OpenRecordset("select * from clientes", dbOpenDynaset)
    ' Comprobar que hay datos en el recordset
    With tRs1
        ' Si no hay datos...
        If (.BOF And .EOF) Then
            MsgBox "No hay información de clientes registrados"
        Else
            ' Mostrar los datos hallados
            ListView.ListItems.Clear
            .MoveFirst
            Do While Not .EOF
                Set tLi1 = ListView.ListItems.Add()
                tLi1.SubItems(1) = .Fields("ncliente") & ""
                tLi1.SubItems(2) = .Fields("acliente") & ""
                tLi1.SubItems(3) = .Fields("idcliente") & ""
                .MoveNext
            Loop
        End If
    End With
End Sub

Jorge López:
amigos ya lo resolvi....gracias....

Brroz:
Hola Jorge.

¿Has comprobado que el valor para el campo en el registro que da el error no sea nulo?

Mira a ver...
Abur.

Navegación

[0] Índice de Mensajes