How do I add a list of objects to a class

Question

0.00/5 (No votes)

See more:

Hi,
I have been working on this problem for a few days now and am struggling with it. what I am trying to archive is to have a list of a class in another class. below is the class.

VB

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

here is the code that I am using to populate this class.

VB

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

I am getting a NullReferenceException on the last Line of this code.

Any and All help is Very Much apreciated

What I have tried:

I have tried googling what i am trying to achieve and am not finding anything that makes sense to me.

Posted 7-Jun-17 14:22pm

Aneets

Updated 7-Jun-17 15:45pm

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

User 7407470 · Accepted Answer · 2017-06-07T15:45:00

Naccount.Accounts itself is not a List you can add to, it's a property you can assign a (reference to a) List to (m_Accounts is a List you can add to but it's private and not yet instantiated (created)).

Your code seems not very useful but this example might help you solve your problem:

VB

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