Arraylist only display last item

[David Lozzi]

Hello,

I have an arraylist that loads a checkboxlist. I populate the arraylist
using a custom class and pulling the data from the web.config file. When the
checkboxlist is loaded, only the last item in the list is displayed for each
item, in other words, item #4 is displayed 4 times. My code is below.

Thanks
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
If Not IsPostBack Then
LoadHire()
End If
End Sub

Sub LoadHire()
Dim opts() As String =
ConfigurationSe ttings.AppSetti ngs("HireSelect ion").Split(";" )
Dim chks As New ArrayList

For i As Integer = 0 To opts.Length - 1
Dim opt As New NewHire(opts(i) , opts(i))
chks.Add(opt)
Next

chkForHire.Data Source = chks
chkForHire.Data Bind()
End Sub


Public Class NewHire
Private Shared _val As String = [String].Empty
Private Shared _text As String = [String].Empty

Public Property DataValue1() As String
Get
Return _val
End Get
Set(ByVal Value As String)
_val = Value
End Set
End Property

Public Property DataText1() As String
Get
Return _text
End Get
Set(ByVal Value As String)
_text = Value
End Set
End Property

Public Sub New(ByVal val As String, ByVal txt As String)
Me._val = val
Me._text = txt
End Sub
End Class

--
David Lozzi
Web Applications Developer
dlozzi@(remove-this)delphi-ts.com

[Karl Seguin [MVP]]

ur field values are shared, they shoudln't be.

Karl

--
http://www.openmymind.net/
http://www.fuelindustries.com/
"David Lozzi" <Da********@nos pam.nospam> wrote in message
news:%2******** *******@TK2MSFT NGP10.phx.gbl.. .

Hello,

I have an arraylist that loads a checkboxlist. I populate the arraylist
using a custom class and pulling the data from the web.config file. When
the checkboxlist is loaded, only the last item in the list is displayed
for each item, in other words, item #4 is displayed 4 times. My code is
below.

Thanks
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
If Not IsPostBack Then
LoadHire()
End If
End Sub

Sub LoadHire()
Dim opts() As String =
ConfigurationSe ttings.AppSetti ngs("HireSelect ion").Split(";" )
Dim chks As New ArrayList

For i As Integer = 0 To opts.Length - 1
Dim opt As New NewHire(opts(i) , opts(i))
chks.Add(opt)
Next

chkForHire.Data Source = chks
chkForHire.Data Bind()
End Sub


Public Class NewHire
Private Shared _val As String = [String].Empty
Private Shared _text As String = [String].Empty

Public Property DataValue1() As String
Get
Return _val
End Get
Set(ByVal Value As String)
_val = Value
End Set
End Property

Public Property DataText1() As String
Get
Return _text
End Get
Set(ByVal Value As String)
_text = Value
End Set
End Property

Public Sub New(ByVal val As String, ByVal txt As String)
Me._val = val
Me._text = txt
End Sub
End Class

--
David Lozzi
Web Applications Developer
dlozzi@(remove-this)delphi-ts.com

[David Lozzi]

DUH! Thank you!!

--
David Lozzi
Web Applications Developer
dlozzi@(remove-this)delphi-ts.com

"Karl Seguin [MVP]" <karl REMOVE @ REMOVE openmymind REMOVEMETOO . ANDME
net> wrote in message news:%2******** ********@tk2msf tngp13.phx.gbl. ..

ur field values are shared, they shoudln't be.

Karl

--
http://www.openmymind.net/
http://www.fuelindustries.com/
"David Lozzi" <Da********@nos pam.nospam> wrote in message
news:%2******** *******@TK2MSFT NGP10.phx.gbl.. .

Hello,

I have an arraylist that loads a checkboxlist. I populate the arraylist
using a custom class and pulling the data from the web.config file. When
the checkboxlist is loaded, only the last item in the list is displayed
for each item, in other words, item #4 is displayed 4 times. My code is
below.

Thanks
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
If Not IsPostBack Then
LoadHire()
End If
End Sub

Sub LoadHire()
Dim opts() As String =
ConfigurationSe ttings.AppSetti ngs("HireSelect ion").Split(";" )
Dim chks As New ArrayList

For i As Integer = 0 To opts.Length - 1
Dim opt As New NewHire(opts(i) , opts(i))
chks.Add(opt)
Next

chkForHire.Data Source = chks
chkForHire.Data Bind()
End Sub


Public Class NewHire
Private Shared _val As String = [String].Empty
Private Shared _text As String = [String].Empty

Public Property DataValue1() As String
Get
Return _val
End Get
Set(ByVal Value As String)
_val = Value
End Set
End Property

Public Property DataText1() As String
Get
Return _text
End Get
Set(ByVal Value As String)
_text = Value
End Set
End Property

Public Sub New(ByVal val As String, ByVal txt As String)
Me._val = val
Me._text = txt
End Sub
End Class

--
David Lozzi
Web Applications Developer
dlozzi@(remove-this)delphi-ts.com