0

OK ...何日もそれを理解しようとした後、私は助けを求めるしかない。私は私の小さな心をグーグルで検索しました、そして今それは私をここに導きました。助けてください。

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

誰？お願いします...？

4

2 に答える 2

2

コードが少ないのでよくわかりませんが、なぜ 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。

于 2012-08-01T02:11:34.090 に答える
0

STRINGRRが最後の行の値のみを持つことを知っています。はいを追加すると、すべてのコードを投稿する必要があります。

于 2012-08-01T01:55:08.277 に答える