Как добавить список объектов в класс
Привет,
Я работаю над этой проблемой уже несколько дней и борюсь с ней. то, что я пытаюсь архивировать, - это иметь список класса в другом классе. ниже приведен класс.
Public Class Account Public Property Email() As String Get Return m_Email End Get Set(ByVal value As String) m_Email = Value End Set End Property Private m_Email As String Public Property Active() As Boolean Get Return m_Active End Get Set(ByVal value As Boolean) m_Active = Value End Set End Property Private m_Active As Boolean Public Property CreatedDate() As DateTime Get Return m_CreatedDate End Get Set(ByVal value As DateTime) m_CreatedDate = Value End Set End Property Private m_CreatedDate As DateTime End Class Public Class ListOfAccounts Public Property User() As String Get Return m_User End Get Set(ByVal value As String) m_User = value End Set End Property Private m_User As String Public Property Accounts() As List(Of Account) Get Return m_Accounts End Get Set(ByVal value As List(Of Account)) m_Accounts = value End Set End Property Private m_Accounts As List(Of Account) End Class
вот код, который я использую для заполнения этого класса.
Dim Naccount As New ListOfAccounts Naccount.User = "James" For i = 0 To 5 Dim AccountL As New Account AccountL.Active = True AccountL.CreatedDate = Now AccountL.Email = "james" & i.ToString & "@example.com" Naccount.Accounts.Add(AccountL) Next
Я получаю исключение NullReferenceException в последней строке этого кода.
Любая и вся помощь очень ценится
Что я уже пробовал:
Я пытался погуглить то, чего я пытаюсь достичь, и не нашел ничего, что имело бы для меня смысл.