[VB.NET] Cambiare in stato Checked una serie di controlli CheckBox

[migo80]

Un saluto a tutti premetto che non sono molto ferrato sul vb.
Scrivo questa discussione perchè non riesco a risolvere questo problema:
Vorrei settare a checked delle checkbox confrontandole con dei dati estratti da un campo su di un database e se quest'ultimi corrispondono al text delle checkbox queste verranno selezionate automaticamente.
Il codice che ho scritto purtroppo mi spunta solo una checkbox che corrisponde al primo elemento dell'array e il ciclo non prosegue, vi chiedo aiuto!!
questo è il codice:

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim test As String


        Dim connStr2 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\dbtest.accdb"
        Conn2 = New OleDbConnection(connStr2)






        Dim command2 As OleDbCommand
        Conn2.Open()


        SQLString2 = "Select ckb_text from test_table"
        command2 = New OleDbCommand(SQLString2, Conn2)
        Dim rd As OleDbDataReader = command2.ExecuteReader




        rd.Read()
        test = rd.Item(0).ToString
        Conn2.Close()


        Dim ar As String() = test.Split(New Char() {","c})
        Dim sel_ckb As String






        For Each cb As CheckBox In SplitContainer1.Panel1.Controls
            For Each sel_ckb In ar
                If sel_ckb.ToUpper() = cb.Text Then
                    cb.Checked = True


                End If


            Next
        Next


    End Sub

[patel]

tutto dipende dal testo dei vari cb, impossibile rispondere senza disporre del progetto

[migo80]

tutto dipende dal testo dei vari cb, impossibile rispondere senza disporre del progetto

In che senso?

Comunque se sostituisco l'If con un msgbox(sel_ckb.ToUpper()) il ciclo funziona come dovrebbe.

[gibra]

In che senso?

Nel senso che non siamo indovini, quindi senza il progetto ed i dati non è possibile fare il DEBUG.
Tu hai provato a farlo? Passo-passo con [F11]

[patel]

Comunque se sostituisco l'If con un msgbox(sel_ckb.ToUpper()) il ciclo funziona come dovrebbe.

ho qualche dubbio, ma contento tu ....

[migo80]

Risolto

Dim connStr2 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\
databaseTest.accdb"
        Conn2 = New OleDbConnection(connStr2)

        Dim command2 As OleDbCommand
        Conn2.Open()
        SQLString2 = "Select ckb_select from test_table"
        command2 = New OleDbCommand(SQLString2, Conn2)

        Dim rd As OleDbDataReader = command2.ExecuteReader

        rd.Read()
        test = rd.Item(0).ToString
        Conn2.Close()

        ar = test.ToString.Split(",")

        For Each sel_ckb In ar
            For i As Integer = 0 To CheckList1.Items.Count - 1

                If Me.CheckList1.Items(i).ToString.Contains(sel_ckb.ToUpper()) Then
                    MsgBox(Me.CheckList1.Items(i).ToString)

                    Me.CheckList1.SetItemChecked(i, True)
                End If


            Next

        Next