Pls help me understand why this code fails?

ckelsoe

ckelsoe

Member
Joined
Feb 12, 2005
Messages
20
Location
Winchester, VA
Programming Experience
10+
I do not understand what I am missing that is causing this code to fail. Basically, I need to bind an arraylist to a grid (that part works). What does not work is that the code below will only put in the last value of the last iteration of the loop in the grid.

Here is the faulty code:

VB.NET: 
[SIZE=1]
[SIZE=1][COLOR=#0000ff]Function[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]Test[/COLOR][/SIZE][SIZE=1]([/SIZE][SIZE=1]) [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Boolean
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]intLoopCount[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Integer[/COLOR][/SIZE][SIZE=1] = 0
[/SIZE][SIZE=1][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]aList[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]ArrayList
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]LoopTestClass[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]LoopTestClass
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff] Do
[/COLOR][/SIZE][SIZE=1][INDENT][/SIZE][SIZE=1][COLOR=#800080]intLoopCount[/COLOR][/SIZE][SIZE=1] = [/SIZE][SIZE=1][COLOR=#800080]intLoopCount[/COLOR][/SIZE][SIZE=1] + 1
[/SIZE][SIZE=1][COLOR=#800080]LoopTestClass[/COLOR][/SIZE][SIZE=1].[/SIZE][SIZE=1][COLOR=#800080]field1[/COLOR][/SIZE][SIZE=1] = [/SIZE][B][SIZE=1][COLOR=#800000]"Value 1 in loop "[/B][/COLOR][/SIZE][SIZE=1] & [/SIZE][SIZE=1][COLOR=#800080]intLoopCount
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#800080]LoopTestClass[/COLOR][/SIZE][SIZE=1].[/SIZE][SIZE=1][COLOR=#800080]field1[/COLOR][/SIZE][SIZE=1] = [/SIZE][B][SIZE=1][COLOR=#800000]"Value 2 in loop "[/B][/COLOR][/SIZE][SIZE=1] & [/SIZE][SIZE=1][COLOR=#800080]intLoopCount
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#800080]LoopTestClass[/COLOR][/SIZE][SIZE=1].[/SIZE][SIZE=1][COLOR=#800080]field1[/COLOR][/SIZE][SIZE=1] = [/SIZE][B][SIZE=1][COLOR=#800000]"Value 3 in loop "[/B][/COLOR][/SIZE][SIZE=1] & [/SIZE][SIZE=1][COLOR=#800080]intLoopCount
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#800080]aList[/COLOR][/SIZE][SIZE=1].[/SIZE][SIZE=1][COLOR=#800080]Add[/COLOR][/SIZE][SIZE=1]([/SIZE][SIZE=1][COLOR=#800080]LoopTestClass[/COLOR][/SIZE][SIZE=1])
[/INDENT][/SIZE][SIZE=1][COLOR=#0000ff] Loop[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]While[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]intLoopCount[/COLOR][/SIZE][SIZE=1] < 10
[/SIZE][SIZE=1][COLOR=#0000ff] Me[/COLOR][/SIZE][SIZE=1].[/SIZE][SIZE=1][COLOR=#800080]DataGridView1[/COLOR][/SIZE][SIZE=1].[/SIZE][SIZE=1][COLOR=#800080]DataSource[/COLOR][/SIZE][SIZE=1] = [/SIZE][SIZE=1][COLOR=#800080]aList
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff] Me[/COLOR][/SIZE][SIZE=1].[/SIZE][SIZE=1][COLOR=#800080]DataGridView1[/COLOR][/SIZE][SIZE=1].[/SIZE][SIZE=1][COLOR=#800080]Refresh[/COLOR][/SIZE][SIZE=1]()[/SIZE]
[SIZE=1]End Function
[/SIZE][/SIZE]

Here is the class referenced above:
VB.NET: 
[SIZE=1][COLOR=#0000ff][SIZE=1][COLOR=#0000ff]Public[/COLOR][/SIZE][SIZE=1][COLOR=#000000] [/COLOR][/SIZE][SIZE=1][COLOR=#0000ff]Class[/COLOR][/SIZE][SIZE=1][COLOR=#000000] [/COLOR][/SIZE][SIZE=1][COLOR=#800080]LoopTestClass
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Private[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]m_field1[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]String
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Private[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]m_field2[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]String
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Private[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]m_field3[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]String
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Public[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Property[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]field1[/COLOR][/SIZE][SIZE=1]() [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]String
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Get
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Return[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]M_field1
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Get
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=1]([/SIZE][SIZE=1][COLOR=#0000ff]ByVal[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]value[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]String[/COLOR][/SIZE][SIZE=1])
[/SIZE][SIZE=1][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]m_field1[/COLOR][/SIZE][SIZE=1] = [/SIZE][SIZE=1][COLOR=#800080]value[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Then
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Return
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]If
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#800080]m_field1[/COLOR][/SIZE][SIZE=1] = [/SIZE][SIZE=1][COLOR=#800080]value
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Set
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Property
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Public[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Property[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]field2[/COLOR][/SIZE][SIZE=1]() [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]String
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Get
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Return[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]M_field2
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Get
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=1]([/SIZE][SIZE=1][COLOR=#0000ff]ByVal[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]value[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]String[/COLOR][/SIZE][SIZE=1])
[/SIZE][SIZE=1][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]m_field2[/COLOR][/SIZE][SIZE=1] = [/SIZE][SIZE=1][COLOR=#800080]value[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Then
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Return
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]If
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#800080]m_field2[/COLOR][/SIZE][SIZE=1] = [/SIZE][SIZE=1][COLOR=#800080]value
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Set
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Property
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Public[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Property[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]field3[/COLOR][/SIZE][SIZE=1]() [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]String
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Get
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Return[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]M_field3
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Get
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=1]([/SIZE][SIZE=1][COLOR=#0000ff]ByVal[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]value[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]String[/COLOR][/SIZE][SIZE=1])
[/SIZE][SIZE=1][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#800080]m_field3[/COLOR][/SIZE][SIZE=1] = [/SIZE][SIZE=1][COLOR=#800080]value[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Then
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]Return
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]If
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#800080]m_field3[/COLOR][/SIZE][SIZE=1] = [/SIZE][SIZE=1][COLOR=#800080]value
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Set
[/COLOR][/SIZE][SIZE=1][/SIZE][SIZE=1][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=1] [/SIZE][SIZE=1][COLOR=#0000ff]Property
End[/COLOR][/SIZE][SIZE=1][COLOR=#000000] [/COLOR][/SIZE][SIZE=1][COLOR=#0000ff]Class
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=1][COLOR=#0000ff][/COLOR][/SIZE]

Thanks for the help in advance.

Charles
 

Attachments

  • GridView1.jpg
    GridView1.jpg
    13.5 KB · Views: 38
Sort by date Sort by votes
that's because you've only created one instance of your class:

Dim LoopTestClass As New LoopTestClass

Change that to
Dim LoopTestClass As LoopTestClass

Then on the first line AFTER your Do, add this:L
LoopTestClass = New LoopTestClass

-tg
 
Upvote 0 Downvote

Similar threads

amnon
  • Question
Resolved Registry Function
Replies
5
Views
951
amnon
amnon
Keldecknight
  • Question
Question Simple Nerual network not swapping outputs during execution after being trained
Replies
2
Views
2K
jmcilhinney
jmcilhinney
F
  • Question
Consuming WEB SERVICE Continuation
Replies
0
Views
680
frutuopa
F
manny cash
  • Question
Here is my code database and table I am so confuse
Replies
6
Views
1K
jdelano
J
RobertAlanGustafsonII
  • Solved
Question How do I host an arbitrary custom control in a DataGridView cell?
Replies
7
Views
2K
Rythorian
Rythorian

Share this page

Latest posts

Back
Top