22-03-15, 07:03 PM
(آخر تعديل لهذه المشاركة : 22-03-15, 07:08 PM {2} بواسطة مبرمج 2015.)
السلام عليكم ورحمة الله وبركاته ..
لدي كود لحفظ البيانات من قائمة ChekedBoxList في حقل واحد على هذه الهيئة
وأبحث عن كود لقرائتها من الحقل وأظهارها على ChekedBoxList أي العكس
لدي كود لكن لا يعمل
لكن هذا الكود يظهر رسالة خطأ :
لدي كود لحفظ البيانات من قائمة 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