منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته ..

لدي كود لحفظ البيانات من قائمة ChekedBoxList في حقل واحد على هذه الهيئة

إقتباس :0;1;2

وخذا كود الحفظ :

كود :

Dim checkedItemsList As Integer() = New Integer(CheckedListBox1.CheckedIndices.Count - 1) {}

        Dim sb As New StringBuilder()

        For i As Integer = 0 To CheckedListBox1.CheckedIndices.Count - 1

            checkedItemsList(i) = CheckedListBox1.CheckedIndices(i)

            sb.Append(checkedItemsList(i))

            sb.Append(";")

        Next

        CheckedListBox1.Tag = sb

        Dim cmd As New SqlCommand("Insert into tb values('" & sb.ToString() & "')", connDB)

        Dim iCount As Integer = cmd.ExecuteNonQuery()

        connDB.Close()

وأبحث عن كود لقرائتها من الحقل وأظهارها على ChekedBoxList أي العكس

لدي كود لكن لا يعمل

كود :

       Dim intersts As String = ""

        Dim cmd As New SqlCommand("Select Interests from tb", connDB)

        Dim dr As SqlDataReader

        dr = cmd.ExecuteReader()

        If dr.Read() Then

            intersts = dr("Interests").ToString()

        End If

        connDB.Close()

        For Each i As ListItem In CheckedListBox1.Items

            For Each s As String In intersts.Split(";"c)

                If i.Value = s Then

                    i.Selected = True

                    Exit For

                End If

            Next

        Next

لكن هذا الكود يظهر رسالة خطأ :

إقتباس :Type 'ListItem' is not def

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مبرمج 2015