Dim str() As String = "1,2,4".Split(",") '{"1", "2", "3"}
For i As Integer = 0 To Me.CheckBoxList1.Items.Count - 1
For j As Integer = 0 To str.Length - 1
If str(j) = Me.CheckBoxList1.Items(i).Value Then
Me.CheckBoxList1.Items(i).Selected = True
End If
Next
Next
转载于:https://www.cnblogs.com/wangdetian168/archive/2008/06/12/1218027.html