منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو (/showthread.php?tid=47770)

ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو - صالح عبدالله - 06-01-24

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

 عملت 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

 


RE: ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو - Kamil - 06-01-24

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

يبدو أن هناك خلط في كيفية استخدام الحلقات في الكود الخاص بك، ولهذا السبب يقوم بنقل البيانات فقط لآخر عنصر تم اختياره في
كود :
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


RE: ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو - صالح عبدالله - 06-01-24

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

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

RE: ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو - Kamil - 06-01-24

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

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

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

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