[صالح عبدالله]

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

 عملت checkedlistbox ثم عملت CHecked  لبعض العناصر سؤالي كيف أستطيع نقل محتويات checkedlistbox المحددة فقط وليس كل ITEMS  الى داتا قريد فيو  
قمت بعمل كود ولكن ينقل آخر   ITEM  قمت بإختياره ولا ينقلها جميعها وهذا هو الكود المستخدم

        Dim cmd As New SqlCommand("select * from Student_Data", Sqlcon)

        Dim Adaptr As New SqlDataAdapter(cmd)

        Dim dt1 As New DataTable

        Adaptr.Fill(dt1)

        Dim i1 As Integer

        For i1 = 0 To CheckedListBox1.Items.Count - 1

            If CheckedListBox1.GetItemChecked(i1) Then

                Dim i As Integer

                For i = 0 To dt1.Rows.Count - 1

                    If dt1.Rows(i)(2).ToString = CheckedListBox1.GetItemText(CheckedListBox1.SelectedItem) Then

                        TextBox1.Text = dt1.Rows(i)(1).ToString

                        TextBox2.Text = dt1.Rows(i)(2).ToString

                        TextBox3.Text = dt1.Rows(i)(3).ToString

                        DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(1).Value = TextBox1.Text

                        DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(2).Value = TextBox2.Text

                        DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(3).Value = TextBox3.Text

        

                    End If

                Next

            End If

        Next

 

[Kamil]

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

يبدو أن هناك خلط في كيفية استخدام الحلقات في الكود الخاص بك، ولهذا السبب يقوم بنقل البيانات فقط لآخر عنصر تم اختياره في

كود :

CheckedListBox

. لحل هذه المشكلة، يمكنك تحديد العناصر المحددة بشكل صحيح وثم نقل البيانات. إليك كيفية تحسين الكود:

PHP كود :

Dim cmd As New SqlCommand("SELECT * FROM Student_Data", Sqlcon)
Dim Adaptr As New SqlDataAdapter(cmd)
Dim dt1 As New DataTable
Adaptr.Fill(dt1)

For i1 As Integer = 0 To CheckedListBox1.Items.Count - 1
    If CheckedListBox1.GetItemChecked(i1) Then
        Dim selectedItem As String = CheckedListBox1.GetItemText(CheckedListBox1.Items(i1))

        For i As Integer = 0 To dt1.Rows.Count - 1
            If dt1.Rows(i)(2).ToString = selectedItem Then
                TextBox1.Text = dt1.Rows(i)(1).ToString
                TextBox2.Text = dt1.Rows(i)(2).ToString
                TextBox3.Text = dt1.Rows(i)(3).ToString

                ' إضافة صف جديد إلى DataGridView
                Dim newRow As DataGridViewRow = New DataGridViewRow()
                newRow.CreateCells(DataGridView1)
                newRow.Cells(1).Value = TextBox1.Text
                newRow.Cells(2).Value = TextBox2.Text
                newRow.Cells(3).Value = TextBox3.Text
                DataGridView1.Rows.Add(newRow)

                Exit For ' انتهاء البحث بمجرد العثور على العنصر المحدد
            End If
        Next
    End If
Next 


في هذا الكود، قمت بتخزين العنصر المحدد من

كود :

CheckedListBox1

في

كود :

selectedItem

، ثم قمت بالبحث في DataTable عن هذا العنصر ونقل البيانات إلى

كود :

DataGridView1

[صالح عبدالله]

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

ألف شكر لك يا أستاذ كامل وعاجز عن الشكر بارك الله فيك  الكود يعمل 100\100

[Kamil]

(06-01-24, 02:45 PM)صالح عبدالله كتب : السلام عليكم ورحمة الله وبركاته 

ألف شكر لك يا أستاذ كامل وعاجز عن الشكر بارك الله فيك  الكود يعمل 100\100

العفو اخي العزيز 

وبارك الله بكم