array of objects changing unusually

[=?Utf-8?B?UiBD?=]

hi,
i have an array of 30 adgroup objects, called arrAdGroup. i am using a loop
to traverse through the array to set the adgroup.id property to a value
(which is different every time).
the code sets the value of all the objects in the array to the value of the
last object.
the code is below:

For i = 0 To counter - 1

With oKeyword
..adGroupId = adgroupID(i)
..criterionType =
criterion.com.g oogle.adwords.C riterionType.Ke yword
'.criterionType Specified = True
If BidChange(i) Then
..maxCpc = Bid(i)
..maxCpcSpecifi ed = True
End If
Select Case keywordType(i)
Case 1
..type = criterion.com.g oogle.adwords.K eywordType.Broa d
Case 2
..type = criterion.com.g oogle.adwords.K eywordType.Exac t
Case 3
..type =
criterion.com.g oogle.adwords.K eywordType.Phra se
End Select
If DURLChange(i) Then
..destinationUr l = destinationURL( i)
End If
If paused(i) Then
..paused = True
..pausedSpecifi ed = True
End If
..id = keywordID(i)

End With

' here is where the code is breaking.
If keywordID(i) 0 Then
arrKeyword(i) = oKeyword
End If
' every time this code executes, the previous object that was set in the
earlier 'loop is overwritten and a new instance of the object appears in the
(i) instance of 'the array.
Next

please help.

[Jack Jackson]

You only have one instance of oKeyword. Each time through the loop
you set various properties of oKeyword, and then at the end you set
arrKeyword(i) = oKeyword.

Each arrKeyword() entry has a reference to the same oKeyword object.
You need to allocate a new oKeyword object each time through the loop.

Also, since you do nothing useful in the For loop if keywordID(i) <= 0
it would be more efficient to put this right after the For:

If keywordID(i) <= 0 Then
Continue For
End If

On Fri, 24 Aug 2007 09:42:03 -0700, R C <RC@discussions .microsoft.com>
wrote:

>hi,
i have an array of 30 adgroup objects, called arrAdGroup. i am using a loop
to traverse through the array to set the adgroup.id property to a value
(which is different every time).
the code sets the value of all the objects in the array to the value of the
last object.
the code is below:

For i = 0 To counter - 1

With oKeyword
.adGroupId = adgroupID(i)
.criterionTy pe =
criterion.com. google.adwords. CriterionType.K eyword
'.criterionTyp eSpecified = True
If BidChange(i) Then
.maxCpc = Bid(i)
.maxCpcSpecifi ed = True
End If
Select Case keywordType(i)
Case 1
.type = criterion.com.g oogle.adwords.K eywordType.Broa d
Case 2
.type = criterion.com.g oogle.adwords.K eywordType.Exac t
Case 3
.type =
criterion.com. google.adwords. KeywordType.Phr ase
End Select
If DURLChange(i) Then
.destinationUr l = destinationURL( i)
End If
If paused(i) Then
.paused = True
.pausedSpecifi ed = True
End If
.id = keywordID(i)

End With

' here is where the code is breaking.
If keywordID(i) 0 Then
arrKeyword(i ) = oKeyword
End If
' every time this code executes, the previous object that was set in the
earlier 'loop is overwritten and a new instance of the object appears in the
(i) instance of 'the array.
Next

please help.