[جيولوجي مبتدئ]

السلام عليكم ورحمة الله وبركاته 
يوجد لدي 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)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته 
الف شكر لك مصمم هاوي وبارك الله فيك 
وأعتذر لظروف صحية مررت بها في الفترة الماضية والحمد لله كل حال 

لك جزيل الشكر 
دمت بود

شفاك الله وعافاك
أسأل الله لك الشفاء العاجل ، وأن يهبك الصحة والعافية والعمر المديد .

[مصمم هاوي]

(30-08-25, 03:41 AM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته 
الف شكر لك مصمم هاوي وبارك الله فيك 
وأعتذر لظروف صحية مررت بها في الفترة الماضية والحمد لله كل حال 

لك جزيل الشكر 
دمت بود

أسال الله العظيم رب العرش العظيم أن يشفيك