Tema: Serializar
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/03/2012, 10:48
mhalonso
 
Fecha de Ingreso: mayo-2008
Mensajes: 23
Antigüedad: 16 años, 5 meses
Puntos: 0
Serializar

Hola a todos estoy intentando introducir unos datos en una clase de Vb.net, pero no se como meterle mano, lo estoy haciendo así.

Clase

<Serializable()> _
Public Class Peticion_Disponibilidad
Public ListClientes() As Clientes
End Class

<Serializable()> _
Public Class Clientes
Public Tipo As String
Public Nombre As String
Public CantidadCli1() As Clientes1
Public CantidadCli2() As Clientes2
Public CantidadCli3() As Clientes3

End Class


<Serializable()> _
Public Class Clientes1
<XmlAttribute()> _
Public NumeroCli1 As Integer
<XmlAttribute()> _
Public EdadCli1 As String
End Class

<Serializable()> _
Public Class Clientes2
<XmlAttribute()> _
Public NumeroCli2 As Integer
<XmlAttribute()> _
Public EdadCli2 As String
End Class

<Serializable()> _
Public Class Clientes3
<XmlAttribute()> _
Public NumeroCli3 As Integer
<XmlAttribute()> _
Public EdadCli3 As String
End Class

y esto es lo que trato de hacer...

ReDim Preserve PeticionServicio.ListClientes(1)

Dim xx As New ServicioWeb.Clientes

xx.Tipo= "Adulto"
xx.Nombre= "Pepe"

xx.CantidadCli1(0).NumeroCli1 = 2
xx.CantidadCli1(0).EdadCli1 = ""
xx.CantidadCli2(0).NumeroCli2 = 1
xx.CantidadCli2(0).EdadCli2 = ""
xx.CantidadCli3(0).NumeroCli3 = 0
xx.CantidadCli3(0).EdadCli3 = ""

ServicioWeb.ListClientes(1) = xx

Me da un error en xx.CantidadCli1(0).NumeroCli1 = 2 indicando, "referencia a objeto, no establecida como instancia del objeto"..
Alguien me pude echar un cable???

Muchas gracias desde ya.. Saludos a todos.