CheckListBox - 根据数组值检查项目 - VB.NET

Question

好的...经过很多天的尝试，我别无选择，只能寻求帮助。我用谷歌搜索了我的小心脏，现在它把我带到了这里。请帮忙。

我从我的 MySQL 数据库服务器得到一个字符串。然后我将字符串拆分并放入一个数组中。

然后我检查我的复选框并查看其中的任何条目是否等于数组值。问题是，它不起作用，而且我这辈子都无法让它起作用。

这有点像我的模板，如果有人能帮我解决这个问题，我将不胜感激。

    Using connection As New MySqlConnection("datasource = " + IPADDRESS + "; username = '" + USERNAME + "'; password='" + PASSWORD + "' ; database = '" + DBASE + "'")
        Using Command As New MySqlCommand("SELECT * FROM hazinc WHERE title = '" + ListBox1.Text + "'", connection)

            connection.Open()

            'Command.ExecuteReader()
            Using reader As MySqlDataReader = Command.ExecuteReader()
                While reader.Read()
                    'TextBox2.Text = reader("title")
                    STRINGRR = reader("involved")

                End While

                Dim NEWSTRINGRR As String() = STRINGRR.Split(",")

                Dim CC As Integer

                CC = 0

                For Each X In NEWSTRINGRR
                    For I = 0 To clbEmployees.Items.Count - 1
                        Try
                            If clbEmployees.Items(I).ToString() = NEWSTRINGRR(I).ToString() Then
                                SetItemChecked(I)
                            End If
                        Catch ex As Exception
                            ' MsgBox(ex.ToString)
                        End Try

                    Next
                Next



            End Using

            connection.Close()

        End Using
    End Using

有人吗？请问……？

Answer 1

我不能确定这么少的代码，但你为什么要为你的 If 条件使用相同的索引？ 那么 X 有什么用呢？

我觉得应该是这样的：

For Each X In NEWSTRINGRR
    For I = 0 To clbEmployees.Items.Count - 1
        If clbEmployees.Items(I).ToString() = X.ToString() Then
           SetItemChecked(I)
        End If
    Next
Next

CMIIW.

Answer 2

你知道 STRINGRR 只会有最后一行的值。添加是，您需要发布所有代码。