Aneets Ответов: 1

Как добавить список объектов в класс


Привет,
Я работаю над этой проблемой уже несколько дней и борюсь с ней. то, что я пытаюсь архивировать, - это иметь список класса в другом классе. ниже приведен класс.

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 в последней строке этого кода.

Любая и вся помощь очень ценится

Что я уже пробовал:

Я пытался погуглить то, чего я пытаюсь достичь, и не нашел ничего, что имело бы для меня смысл.

1 Ответов

Рейтинг:
10

Peter Vegter

Naccount.Сами учетные записи - это не список, в который вы можете добавить, это свойство, которому вы можете назначить (ссылку на список) (m_Accounts-это список, в который вы можете добавить, но он является частным и еще не создан (создан)).

Ваш код кажется не очень полезным, но этот пример может помочь вам решить вашу проблему:

Dim Naccount As New ListOfAccounts
Naccount.User = "James"
Dim AccountList As New List(Of Account)
For i = 0 To 5
    Dim AccountL As New Account
    AccountL.Active = True
    AccountL.CreatedDate = Now
    AccountL.Email = "james" & i.ToString & "@example.com"
    AccountList.Add(AccountL)
Next
Naccount.Accounts = AccountList


Aneets

большое спасибо, Питер.
это был код, который я написал, чтобы посмотреть, смогу ли я получить желаемый результат.

Я не могу достаточно отблагодарить вас за вашу помощь.

Овации

Peter Vegter

Пожалуйста. Спасибо за ваш любезный ответ.
Овации

Karthik_Mahalingam

5

Peter Vegter

Спасибо тебе, Картик!