السلام عليكم ورحمة الله وبركاته
يوجد لدي checklistbox1 عملت عملية حذف للعناصر اللي معمول له True المطلوب أني اعمل تحميل للبيانات في ف القائمة من غير العناصر اللي تم حذفها مع العلم ان القائمة تم تعبئتها من قادة بيانات
دمتم بود
لكم جزيل الشكر
لتحميل البيانات في القائمة من غير العناصر اللي تم حذفها، استخدام الكود التالي:
For Each item As DataRow In dt.Rows
If Not CheckedListBox1.Items.Contains(item("اسم الحقل").ToString()) Then
CheckedListBox1.Items.Add(item("اسم الحقل").ToString())
End If
Next
ولكن هذا الكود سيعمل إذا كانت البيانات لم تتغير، أما إذا كانت البيانات تتغير وتريد حذف العناصر التي تم تحديدها في CheckedListBox1، استخدام الكود التالي
:
For i As Integer = CheckedListBox1.Items.Count - 1 To 0 Step -1
If CheckedListBox1.GetItemChecked(i) Then
CheckedListBox1.Items.RemoveAt(i)
End If
Next
هذا الكود سيحذف العناصر التي تم تحديدها في CheckedListBox1.
أما إذا كنت تريد تحميل البيانات من قاعدة البيانات مع استبعاد العناصر المحذوفة، فيمكنك استخدام استعلام SQL لاستبعاد تلك العناصر.
Dim query As String = "SELECT * FROM table_name WHERE column_name NOT IN ('" & String.Join("', '", CheckedListBox1.Items.Cast(Of String).ToArray()) & "')"
ثم قم بتنفيذ الاستعلام وقم بتعبئة CheckedListBox1 بالبيانات الجديدة.
Dim cmd As New SqlCommand(query, Con)
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
da.Fill(dt)
CheckedListBox1.DataSource = dt
CheckedListBox1.DisplayMember = "اسم الحقل"
بهذا الشكل، سيتم تحميل البيانات من قاعدة البيانات مع استبعاد العناصر المحذوفة.
السلام عليكم ورحمة الله وبركاته
الف شكر لك مصمم هاوي وبارك الله فيك
وأعتذر لظروف صحية مررت بها في الفترة الماضية والحمد لله كل حال
لك جزيل الشكر
دمت بود
(30-08-25, 03:41 AM)جيولوجي مبتدئ كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
الف شكر لك مصمم هاوي وبارك الله فيك
وأعتذر لظروف صحية مررت بها في الفترة الماضية والحمد لله كل حال
لك جزيل الشكر
دمت بود
أسال الله العظيم رب العرش العظيم أن يشفيك