アイテムのリストは新しいアイテムを1つだけ追加します

-1

以下は、データベースからクラスのオブジェクトのリストにデータをインポートするために使用しようとしているコードです。ただし、ループが終了すると、リスト内のアイテムは1つしか取得されません。私は、オブジェクトの動的リストの代わりにListBoxにデータを配置していたので、データが取得されていました。アイテムのリストは新しいアイテムを1つだけ追加します

MyLists = New List(Of AnItem)

新しい（空の）リストにループの周りのたびに作成されています

Public Class AnItem 
    Public Item As String 
    Public TheType As String 
End Class 

Public MyLists As List(Of AnItem) 

Private Sub AddToList() 
    Dim i as integer 
    Dim fs as AnItem 

    For i = 0 To numberOfDataBaseitems 
     Dim fs as new AnItem 
     'fs.item = 'item 1' 
     'fs.type = 'box' 
     fs = getData(i) 

     'ONLY one ITEM IS ADDED!!!!!!?????? 
     MyLists = New List(Of AnItem) 
     MyLists.Add(fs) 
    Next I 
End Sub

出典

2016-04-09 user4464397

答えが有効な場合は、質問の左にあるチェックボックスをクリックしてください答えが**とマークされ、これは、それを投稿した人が評判を得ていることを確認します。乾杯。 –