[RESOLVED] [2005] CheckedListBox

[tylerm]

I have a checkedlistbox on my form and a list of items that correpsond to column names in my MSSQL table.

When I load the data from the MSSQL table, I'm trying to get it to check a specific item if the value of the row is 1.

Here is what I'm using, but it throws and error on For each:

For Each item As CheckBox In chkListPermissions.Items
                    If item.Text = "ViewServerList" Then
                        If dr("ViewServerList") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ViewConsole" Then
                        If dr("ViewConsole") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ViewLogs" Then
                        If dr("ViewLogs") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ViewCharts" Then
                        If dr("ViewCharts") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ViewRemoteUsers" Then
                        If dr("ViewRemoteUsers") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ControlStart" Then
                        If dr("ControlStart") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ControlStop" Then
                        If dr("ControlStop") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    End If
                Next

[nmadd]

Regarding your error, you can get all of the items in a CheckedListBox like this:

' What items are in my CheckedListBox?
        For i As Integer = 0 To Me.CheckedListBox1.Items.Count - 1
            MessageBox.Show("This is : " & Me.CheckedListBox1.Items(i).ToString())
        Next i

[tylerm]

I tweaked it some and here is the working result:

For i As Integer = 0 To chkListPermissions.Items.Count - 1
                    If chkListPermissions.Items.Item(i).ToString = "ViewServerList" Then
                        If dr("ViewServerList") = 1 Then
                            chkListPermissions.SetItemChecked(i, True)
                        Else
                            chkListPermissions.SetItemChecked(i, False)
                        End If
                    ElseIf chkListPermissions.Items.Item(i).ToString = "ViewConsole" Then
                        If dr("ViewConsole") = 1 Then
                            chkListPermissions.SetItemChecked(i, True)
                        Else
                            chkListPermissions.SetItemChecked(i, False)
                        End If
                    ElseIf chkListPermissions.Items.Item(i).ToString = "ViewLogs" Then
                        If dr("ViewLogs") = 1 Then
                            chkListPermissions.SetItemChecked(i, True)
                        Else
                            chkListPermissions.SetItemChecked(i, False)
                        End If
                    ElseIf chkListPermissions.Items.Item(i).ToString = "ViewCharts" Then
                        If dr("ViewCharts") = 1 Then
                            chkListPermissions.SetItemChecked(i, True)
                        Else
                            chkListPermissions.SetItemChecked(i, False)
                        End If
                    ElseIf chkListPermissions.Items.Item(i).ToString = "ViewRemoteUsers" Then
                        If dr("ViewRemoteUsers") = 1 Then
                            chkListPermissions.SetItemChecked(i, True)
                        Else
                            chkListPermissions.SetItemChecked(i, False)
                        End If
                    End If
                Next i

I changed your CheckedListBox1.Items(i) to CheckedListBox1.Items.Item(i) for correct syntax

Thanks!