06-01-24, 02:13 PM
وعليكم السلام ورحمة الله وبركاته
يبدو أن هناك خلط في كيفية استخدام الحلقات في الكود الخاص بك، ولهذا السبب يقوم بنقل البيانات فقط لآخر عنصر تم اختياره في
. لحل هذه المشكلة، يمكنك تحديد العناصر المحددة بشكل صحيح وثم نقل البيانات. إليك كيفية تحسين الكود:
في هذا الكود، قمت بتخزين العنصر المحدد من
في
، ثم قمت بالبحث في DataTable عن هذا العنصر ونقل البيانات إلى
يبدو أن هناك خلط في كيفية استخدام الحلقات في الكود الخاص بك، ولهذا السبب يقوم بنقل البيانات فقط لآخر عنصر تم اختياره في
كود :
CheckedListBoxPHP كود :
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