复选框列表始终选择最后一条记录

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

这始终会将Data2中的所有值分配给您选择的值。结束最后一个。因此，所有“选定”值都具有相同的值。

我建议使用你的外循环来找到正确的值，如下所示：

chkServiceName.SelectedValue = Data2[i].ServiceID

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

你当然不希望每次都循环播放所有的Data2记录，每次都无缘无故地分配它们的值：）