选中数据库中的checkboxlist 列表

   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