每个都打印相同的项目

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

非常感谢上述有用的评论！