Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 240
  • Last Modified:

Objects - How to add additional property in Class

I have the following code for a Customer object and would like to add additional properties. In this instance I would like to add IDCustomer. There is only one ID per customer. What would be the correct syntax for this?

I currently fill an array with customerArray.Add(New Customer(reader1("CompanyName"))).
Public Class Customer
	Inherits [Object]
	Private custID As Long
	Private custName As String = ""
	Friend custOrders As New ArrayList()

	Public Sub New(ByVal customername As String)
		Me.custName = customername
	End Sub

	Public Property CustomerName() As String
		Get
			Return Me.custName
		End Get
		Set(ByVal Value As String)
			Me.custName = Value
		End Set
	End Property

	Public ReadOnly Property CustomerOrders() As ArrayList
		Get
			Return Me.custOrders
		End Get
	End Property
End Class 'End Customer class


Public Class Order
	Inherits [Object]
	Private ordID As String

	Public Sub New(ByVal orderid As String)
		Me.ordID = orderid
	End Sub 'New

	Public Property OrderID() As String
		Get
			Return Me.ordID
		End Get
		Set(ByVal Value As String)
			Me.ordID = Value
		End Set
	End Property
End Class ' End Order class

Open in new window

0
TeDeSm
Asked:
TeDeSm
  • 3
  • 2
1 Solution
 
ZhaolaiCommented:
Add this code to your class:


	Public Property CustomerID() As Long
		Get
			Return Me.custID
		End Get
		Set(ByVal Value As Long)
			Me.custID = Value
		End Set
	End Property

Open in new window

0
 
TeDeSmAuthor Commented:
Thanks for the help.

I am specifying my array Private customerArray As New ArrayList() and filling it with
 customerArray.Add(New Customer(reader1("CompanyName")))

I need this array to hold IDCustomer as well as the CustomerName, how do I set both for each array entry?
0
 
ZhaolaiCommented:
Dim cust as New Customer(reader1("CompanyName"))
cust.CustomerID =reader1("CustomerID")
customerArray.Add(cust)

0
 
ZhaolaiCommented:
Or you can change sub New in your Customer class like this:

      Public Sub New(ByVal CustomerID as Long,  ByVal customername As String)
            me.custID = CustomerID
Me.custName = customername
      End Sub

Then when you add to arraylist, do this:
customerArray.Add(New Customer(reader1("CustomerID"), reader1("CompanyName")))
0
 
TeDeSmAuthor Commented:
Great solution, thanks
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now