それぞれが同じものを印刷しています

Question

変数ListofBloodTypeはループ内で最初の値を4回取得する理由がわからない正しい値を返しています（カウント4も正しいですが最初の値を4回印刷するのは正しくありません）

Dim tempTreatmentForBloodType As List(Of BloodType) = New List(Of BloodType)() 
Dim ListofBloodType = getPatientBloodType(i.PatientID) 

For Each i As PatientBloodType In ListofBloodType 
    tempTreatmentForBloodType.Add(([Enum].Parse(GetType(BloodType), getReference().Description))) 

Next 

Answer 1

問題は、GSergが指摘したものとまったく同じでした。私はループ変数を使用していませんでした。私は特定の患者のためのデータを取得するパラメータを持つ新しいgetReferenceメソッドを作成しました。私のために働いたコードはここにあります！私はそれが私のような新しいVBプログラマーに役立つことを願っています！

Dim tempTreatmentForBloodType As List(Of BloodType) = New List(Of BloodType)() 
Dim ListofBloodType = getPatientBloodType(i.PatientID) 

For Each i As PatientBloodType In ListofBloodType 
tempTreatmentForBloodType.Add(([Enum].Parse(GetType(BloodType), 
getReference(i.PatientID).Description))) 

Next 

多くの上記の有益なコメントのおかげで！