Ad:

VB.NET Discussion Thread
Unsolved
Views: 1449

Jul 30th, 2009

Create/Initialize property array

Expand Post »

Hi!

I have som auto generated (from xsd file, xsd.exe is used) Partial classes.

On of the properties is an arry, her is the code:

VB.NET Syntax (Toggle Plain Text)
Partial Public Class Betaleregrp4900
 
   Private oversiktOverBetaleregrp4899Field() As OversiktOverBetaleregrp4899
 
   Private betalingTotaldatadef21821Field As BetalingTotaldatadef21821
 
   Private betalerAntalldatadef21822Field As BetalerAntalldatadef21822
 
   Private gruppeidField As String
 
   Public Sub New()
       MyBase.New
       Me.gruppeidField = "4900"
   End Sub
 
   '''<remarks/>
   <System.Xml.Serialization.XmlElementAttribute("OversiktOverBetalere-grp-
4899")>  _
   Public Property OversiktOverBetaleregrp4899() As
OversiktOverBetaleregrp4899()
       Get
           Return Me.oversiktOverBetaleregrp4899Field
       End Get
       Set
           Me.oversiktOverBetaleregrp4899Field = value
       End Set
   End Property
Partial Public Class Betaleregrp4900
   
   Private oversiktOverBetaleregrp4899Field() As OversiktOverBetaleregrp4899
   
   Private betalingTotaldatadef21821Field As BetalingTotaldatadef21821
   
   Private betalerAntalldatadef21822Field As BetalerAntalldatadef21822
   
   Private gruppeidField As String
   
   Public Sub New()
       MyBase.New
       Me.gruppeidField = "4900"
   End Sub
   
   '''<remarks/>
   <System.Xml.Serialization.XmlElementAttribute("OversiktOverBetalere-grp-
4899")>  _
   Public Property OversiktOverBetaleregrp4899() As
OversiktOverBetaleregrp4899()
       Get
           Return Me.oversiktOverBetaleregrp4899Field
       End Get
       Set
           Me.oversiktOverBetaleregrp4899Field = value
       End Set
   End Property

This property is an array:

Private oversiktOverBetaleregrp4899Field() As OversiktOverBetaleregrp4899

I can write:

VB.NET Syntax (Toggle Plain Text)
Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 = New
OversiktOverBetaleregrp4899() { _
       New OversiktOverBetaleregrp4899, _
       New OversiktOverBetaleregrp4899}
Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 = New
OversiktOverBetaleregrp4899() { _
       New OversiktOverBetaleregrp4899, _
       New OversiktOverBetaleregrp4899}

But my problem is, I don't know how many elements of the type
OversiktOverBetaleregrp4899 I have to create and then I do not know how many
New OversiktOverBetaleregrp4899 I need between {}.

I need to use an loop that generats the number of New
OversiktOverBetaleregrp4899 I need, but how can I do that? Is there another
way to do this?

Her is the start of the code for the partial class
OversiktOverBetaleregrp4899

VB.NET Syntax (Toggle Plain Text)
Partial Public Class OversiktOverBetaleregrp4899
 
   Private betalerFodselsnummerdatadef2305Field As
BetalerFodselsnummerdatadef2305
 
   Private betalerOrganisasjonsnummerdatadef21820Field As
BetalerOrganisasjonsnummerdatadef21820
 
   Private betalerNavndatadef2303Field As BetalerNavndatadef2303
 
   Private betalerAdressedatadef2304Field As BetalerAdressedatadef2304
 
   Private betalerPostnummerdatadef11795Field As
BetalerPostnummerdatadef11795
 
   Private betalerPoststeddatadef11796Field As BetalerPoststeddatadef11796
 
   Private betalingBelopdatadef2307Field As BetalingBelopdatadef2307
 
   Private gruppeidField As String
 
   Public Sub New()
       MyBase.New
       Me.gruppeidField = "4899"
   End Sub
 
   '''<remarks/>
   <System.Xml.Serialization.XmlElementAttribute("BetalerFodselsnummer-
datadef-2305")>  _
   Public Property BetalerFodselsnummerdatadef2305() As
BetalerFodselsnummerdatadef2305
       Get
           Return Me.betalerFodselsnummerdatadef2305Field
       End Get
       Set
           Me.betalerFodselsnummerdatadef2305Field = value
       End Set
   End Property
Partial Public Class OversiktOverBetaleregrp4899
   
   Private betalerFodselsnummerdatadef2305Field As
BetalerFodselsnummerdatadef2305
   
   Private betalerOrganisasjonsnummerdatadef21820Field As
BetalerOrganisasjonsnummerdatadef21820
   
   Private betalerNavndatadef2303Field As BetalerNavndatadef2303
   
   Private betalerAdressedatadef2304Field As BetalerAdressedatadef2304
   
   Private betalerPostnummerdatadef11795Field As
BetalerPostnummerdatadef11795
   
   Private betalerPoststeddatadef11796Field As BetalerPoststeddatadef11796
   
   Private betalingBelopdatadef2307Field As BetalingBelopdatadef2307
   
   Private gruppeidField As String
   
   Public Sub New()
       MyBase.New
       Me.gruppeidField = "4899"
   End Sub
   
   '''<remarks/>
   <System.Xml.Serialization.XmlElementAttribute("BetalerFodselsnummer-
datadef-2305")>  _
   Public Property BetalerFodselsnummerdatadef2305() As
BetalerFodselsnummerdatadef2305
       Get
           Return Me.betalerFodselsnummerdatadef2305Field
       End Get
       Set
           Me.betalerFodselsnummerdatadef2305Field = value
       End Set
   End Property

I hope somebody can help me with this! Thanks!

Similar Threads

I need help with an if/else statement inside a for loop in Java
how to create a dynamic string array to store string items . plz in C++
assing table values to an array in JSP
How do I initialize an array from infile? in C++
trying to point to an array in C++

solano

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Jul 2009

Permalink

Jul 30th, 2009

Re: Create/Initialize property array

I don't understand what you're asking. Load the property array in to a List of generics, modify it, then call .ToArray() if you are having problems working with an array. Other than that I can't understand what you are asking.

sknake

Featured Poster

Reputation Points: 1749

Solved Threads: 735

Senior Poster

Offline

3,948 posts
since Feb 2009

Permalink

Jul 31st, 2009

Re: Create/Initialize property array

Click to Expand / Collapse Quote originally posted by sknake ...

I don't understand what you're asking. Load the property array in to a List of generics, modify it, then call .ToArray() if you are having problems working with an array. Other than that I can't understand what you are asking.

I will try to explain it some more:

It is someting like this I want to do:

(Toggle Plain Text)

Dim i As Integer = 0
        Dim NumberOfCustomers = 3
        Dim OversiktOverBer_Tabell(NumberOfCustomers - 1) As OversiktOverBetaleregrp4899

        
        While NumberOfCustomers > 0

            Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 {New Oversik}


            Dim OversiktOverBet_Obj As New OversiktOverBetaleregrp4899

            Dim BetalerOrganisasjonsnummerdatadef21820_Obj As New BetalerOrganisasjonsnummerdatadef21820
            BetalerOrganisasjonsnummerdatadef21820_Obj.Value = "Test BetOrgNr (0) - 123456789"

            Dim BetalerFodselsnummerdatadef2305_Obj As New BetalerFodselsnummerdatadef2305
            BetalerFodselsnummerdatadef2305_Obj.Value = "Test BetFørslenr (0) - 07097645669"

            Dim BetalerNavndatadef2303_Obj As New BetalerNavndatadef2303
            BetalerNavndatadef2303_Obj.Value = "Test BetNavn (0) - Kari Normann"

            Dim BetalerAdressedatadef2304_Obj As New BetalerAdressedatadef2304
            BetalerAdressedatadef2304_Obj.Value = "Test BetAdr (0) - Flatbygdi"

            Dim BetalerPostnummerdatadef11795_Obj As New BetalerPostnummerdatadef11795
            BetalerPostnummerdatadef11795_Obj.Value = "Test BetPostNr (0) - 6893"

            Dim BetalerPoststeddatadef11796_Obj As New BetalerPoststeddatadef11796
            BetalerPoststeddatadef11796_Obj.Value = "Test BetPostSted (0) - Vik i Sogn"

            Dim BetalingBelopdatadef2307_Obj As New BetalingBelopdatadef2307
            BetalingBelopdatadef2307_Obj.Value = "2330"


            OversiktOverBet_Obj.BetalerOrganisasjonsnummerdatadef21820 = BetalerOrganisasjonsnummerdatadef21820_Obj
            OversiktOverBet_Obj.BetalerFodselsnummerdatadef2305 = BetalerFodselsnummerdatadef2305_Obj
            OversiktOverBet_Obj.BetalerNavndatadef2303 = BetalerNavndatadef2303_Obj
            OversiktOverBet_Obj.BetalerAdressedatadef2304 = BetalerAdressedatadef2304_Obj
            OversiktOverBet_Obj.BetalerPostnummerdatadef11795 = BetalerPostnummerdatadef11795_Obj
            OversiktOverBet_Obj.BetalerPoststeddatadef11796 = BetalerPoststeddatadef11796_Obj
            OversiktOverBet_Obj.BetalingBelopdatadef2307 = BetalingBelopdatadef2307_Obj

--> This is may problem, I have to do this another way. Is it possible to split this sentence. The array/list Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 must have in this case 3 OversiktOverBetaleregrp4899 objekst, and I have to say {New OversiktOverBetaleregrp4899, New OversiktOverBetaleregrp4899, New OversiktOverBetaleregrp4899}
but how do I do that when the number of objects is not static?

            Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 = New OversiktOverBetaleregrp4899() {New OversiktOverBetaleregrp4899}            Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899(i) = OversiktOverBet_Obj

            OversiktOverBer_Tabell(i) = OversiktOverBet_Obj

            i = i + 1

            NumberOfCustomers = NumberOfCustomers - 1

        End While

Dim i As Integer = 0
        Dim NumberOfCustomers = 3
        Dim OversiktOverBer_Tabell(NumberOfCustomers - 1) As OversiktOverBetaleregrp4899

        
        While NumberOfCustomers > 0

            Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 {New Oversik}


            Dim OversiktOverBet_Obj As New OversiktOverBetaleregrp4899

            Dim BetalerOrganisasjonsnummerdatadef21820_Obj As New BetalerOrganisasjonsnummerdatadef21820
            BetalerOrganisasjonsnummerdatadef21820_Obj.Value = "Test BetOrgNr (0) - 123456789"

            Dim BetalerFodselsnummerdatadef2305_Obj As New BetalerFodselsnummerdatadef2305
            BetalerFodselsnummerdatadef2305_Obj.Value = "Test BetFørslenr (0) - 07097645669"

            Dim BetalerNavndatadef2303_Obj As New BetalerNavndatadef2303
            BetalerNavndatadef2303_Obj.Value = "Test BetNavn (0) - Kari Normann"

            Dim BetalerAdressedatadef2304_Obj As New BetalerAdressedatadef2304
            BetalerAdressedatadef2304_Obj.Value = "Test BetAdr (0) - Flatbygdi"

            Dim BetalerPostnummerdatadef11795_Obj As New BetalerPostnummerdatadef11795
            BetalerPostnummerdatadef11795_Obj.Value = "Test BetPostNr (0) - 6893"

            Dim BetalerPoststeddatadef11796_Obj As New BetalerPoststeddatadef11796
            BetalerPoststeddatadef11796_Obj.Value = "Test BetPostSted (0) - Vik i Sogn"

            Dim BetalingBelopdatadef2307_Obj As New BetalingBelopdatadef2307
            BetalingBelopdatadef2307_Obj.Value = "2330"


            OversiktOverBet_Obj.BetalerOrganisasjonsnummerdatadef21820 = BetalerOrganisasjonsnummerdatadef21820_Obj
            OversiktOverBet_Obj.BetalerFodselsnummerdatadef2305 = BetalerFodselsnummerdatadef2305_Obj
            OversiktOverBet_Obj.BetalerNavndatadef2303 = BetalerNavndatadef2303_Obj
            OversiktOverBet_Obj.BetalerAdressedatadef2304 = BetalerAdressedatadef2304_Obj
            OversiktOverBet_Obj.BetalerPostnummerdatadef11795 = BetalerPostnummerdatadef11795_Obj
            OversiktOverBet_Obj.BetalerPoststeddatadef11796 = BetalerPoststeddatadef11796_Obj
            OversiktOverBet_Obj.BetalingBelopdatadef2307 = BetalingBelopdatadef2307_Obj

--> This is may problem, I have to do this another way. Is it possible to split this sentence. The array/list Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 must have in this case 3 OversiktOverBetaleregrp4899 objekst, and I have to say {New OversiktOverBetaleregrp4899, New OversiktOverBetaleregrp4899, New OversiktOverBetaleregrp4899}
but how do I do that when the number of objects is not static?

            Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 = New OversiktOverBetaleregrp4899() {New OversiktOverBetaleregrp4899}            Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899(i) = OversiktOverBet_Obj

            OversiktOverBer_Tabell(i) = OversiktOverBet_Obj

            i = i + 1

            NumberOfCustomers = NumberOfCustomers - 1

        End While

I hope this made it clearer. Thanks!

solano

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Jul 2009

Permalink

Aug 1st, 2009

Re: Create/Initialize property array

Neither did I get this

But if you don't know the number of array elements at the compile time, pass it to the constructor of your (partial) class.

I would do something like this

VB.NET Syntax (Toggle Plain Text)
Partial Public Class CItem1
 
  Public Prop1 As Integer
  Public Prop2 As String
 
  Public Sub New(ByVal value1 As Integer, ByVal value2 As String)
    '
    Prop1 = value1
    Prop2 = value2
  End Sub
 
End Class
 
Partial Public Class CItem2
 
  Public Prop3 As Integer
  Public Prop4() As CItem1
 
  Public Sub New(ByVal value3 As Integer, ByVal NumOfElements As Integer)
    '
    Prop3 = value3
    ReDim Prop4(NumOfElements)
  End Sub
 
End Class
Partial Public Class CItem1

  Public Prop1 As Integer
  Public Prop2 As String

  Public Sub New(ByVal value1 As Integer, ByVal value2 As String)
    '
    Prop1 = value1
    Prop2 = value2
  End Sub

End Class

Partial Public Class CItem2

  Public Prop3 As Integer
  Public Prop4() As CItem1

  Public Sub New(ByVal value3 As Integer, ByVal NumOfElements As Integer)
    '
    Prop3 = value3
    ReDim Prop4(NumOfElements)
  End Sub

End Class

and use it

VB.NET Syntax (Toggle Plain Text)
Dim OneItem As CItem2
 
OneItem = New CItem2(3, 2) ' Now Prop3 has the value 3 and we have an uninitialized array with three CItem1s
 
' Set some values
OneItem.Prop4(0).Prop1 = 1
OneItem.Prop4(0).Prop2 = "Cust1"
' Or...
OneItem.Prop4(1) = New CItem1(2, "Cust2")
Dim OneItem As CItem2

OneItem = New CItem2(3, 2) ' Now Prop3 has the value 3 and we have an uninitialized array with three CItem1s

' Set some values
OneItem.Prop4(0).Prop1 = 1
OneItem.Prop4(0).Prop2 = "Cust1"
' Or...
OneItem.Prop4(1) = New CItem1(2, "Cust2")

I did read your code and tried to grab the idea what you're trying to do. This may not be exactly what you wanted, but I hope it gives some idea.

HTH

Teme64

Reputation Points: 218

Solved Threads: 201

Veteran Poster

Offline

1,024 posts
since Aug 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Guide me to write code for barcode scan with CODE 39 BRACODE font in VB.NET

Next Thread in VB.NET Forum Timeline: i cant edit the available code

DaniWeb Message

Cancel Changes

User Name
Password