.net - 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。