复选框列表总是选择最后一个记录

Question

嗨我的问题时，将选定的值绑定到复选框列表。我已经得到正确的数据计数，但我不知道它总是绑定到最后一个复选框项目。这是我的代码。请帮忙。由于

Dim Data2 = ws.GetServiceByPersonID(hidPersonID.Value) 
If Not Data2 Is Nothing Then 
     For i = 0 To chkServiceName.Items.Count - 1 
          For Each rec In Data2 
           chkServiceName.SelectedValue = rec.ServiceID 
          Next 
     Next 
End If 

Answer 1

For Each rec In Data2 
    chkServiceName.SelectedValue = rec.ServiceID 
Next 

这始终分配所有值从数据2到您的SelectedValue。结束最后一个。因此所有“选定”值都具有相同的值。

我会建议使用外循环，找到正确的值，就像这样：

chkServiceName.SelectedValue = Data2[i].ServiceID 

（检查VB语法，如果需要的索引）

你当然不;吨要循环槽所有你的Data2记录，每次都无理由地分配它们的值:)