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
文章来源:
http://www.cnblogs.com/wangdetian168/archive/2008/06/25/1230004.html
posted on 2010-09-28 11:00
sanmao 阅读(128)
评论(0) 编辑 收藏