Error "NullReferenceException" al usar array de objetos

[KalaNag]

Hola a todos, es un poco embarazoso hacer un thread para lo que estoy seguro que tiene una respuesta tonta, pero no he conseguido una solucion a este problema.

Básicamente, necesito crear un array de objetos derivados de clases contenidas en partes de mi proyecto, pero obtengo un error "NullReferenceException (Referencia a objeto no establecida como instancia de un objeto)" como si no hubiera inicializado la clase en cuestion (cosa que creo estar haciendo bien). El error no ocurre si la variable no es un array.

Les dejo el codigo pertinente:

Front-end (ejecutable):

Código vb:

Private Sub m_Mod_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles m_Mod.Click
    Dim Ped As New Loki.cl_PedidoCliente, Res as Integer
    Res = Ped.Buscar()
End Sub
 

Logica (Loki.dll):

Código vb:

Public Class cl_PedidoClienteItems
  Inherits Atlas.cl_DocumentosItems
  '<...>
End Class
 
Public Class cl_PedidoCliente
  Inherits Atlas.cl_Documentos
  
  Public Shadows Function Buscar() As Integer
    Dim arrayPed() As cl_PedidoClienteItems = New cl_PedidoClienteItems() {}
    ReDim arrayPed(0)
    'La siguiente linea genera el error de NullReferenceException
    arrayPed(0).Cod_Item = "lo que sea"
  End Function
End Class
 

Core & DataAccess (Atlas.dll):

Código vb:

Friend Interface i_Documentos  
  Function Buscar() As Integer
End Interface
Friend Interface i_DocumentosItems
  Property Cod_Item() As String
End Interface
 
Public MustInherit Class cl_Documentos
  Implements Atlas.i_Documentos
 
  Public Overridable Function Buscar() As Integer Implements i_Documentos.Buscar
  End Function
End Class
 
Public MustInherit Class cl_DocumentosItems
  Implements Atlas.i_DocumentosItems
  Private _coditem As String
 
  Public Property Cod_Item() As String Implements i_DocumentosItems.Cod_Item
    Get
      Return _coditem
    End Get
    Set(ByVal Value As String)
      _coditem = Value
    End Set
  End Property
 
  Public Sub New()
    _coditem = ""     'Aqui deberia incializarse la propiedad.......
  End Sub
End Class
 

Apreciaria cualquier ayuda al respecto, ya busque en los temas pasados de este error pero no creo que aplican a mi situacion... Gracias por su tiempo y saludos!

[Valery-Net]

El error te lo da en la línea???

Código vb:

Dim Ped As New Loki.cl_PedidoCliente, Res as Integer
 

[hipotecado2]

El problema es que tú supones que tu array tiene elementos.

Dim arrayPed() As cl_PedidoClienteItems = New cl_PedidoClienteItems() {}

Hasta aquí, el array queda definido pero sin tamaño.

ReDim arrayPed(0)

Aquí, redimensionas el array con una posición. Pero esta posición no está ocupada por ninguna referencia a objeto, está vacía.

'La siguiente linea genera el error de NullReferenceException
arrayPed(0).Cod_Item = "lo que sea"

Da error porque el elemento 0 de tu array está vacío.

Deberías crear una instancia de cl_PedidoClienteItems y asignarla al array.

Ejemplo:

dim x as new cl_PedidoClienteItems ()
arrayPed(0) = x;

arrayPed(0).Cod_Item = "lo que sea"

Esta última línea no daría error porque la posición 0 de tu array está ocupada por una referencia a un objeto.

Saludos.

[KalaNag]

Iniciado por Valery-Net

El error te lo da en la línea???

Código vb:

Dim Ped As New Loki.cl_PedidoCliente, Res as Integer
 

No, el error ocurria donde hipotecado2 lo menciona.

Iniciado por hipotecado2

ReDim arrayPed(0)

Aquí, redimensionas el array con una posición. Pero esta posición no está ocupada por ninguna referencia a objeto, está vacía.

Tienes toda la razon, sabia que seria algo tonto al final :/

Muchas gracias por la ayuda... o/