[مصمم هاوي]

(27-02-23, 01:42 AM)مصمم هاوي كتب :

(23-02-23, 02:07 PM)Taha Okla كتب : اذن ذا:

كود :

Try

           'هنا متغير لحمل القيمة التي ستحدد أثناء النقر على البيان المختار من اللست بوكس
           Dim arrListQuery As New ArrayList

           'هنا حلقة فور نكست لتحدد القيم المختارة من اللست بوكس
           'لا ينبغي عليك استخدام فهرس القائمة عند اختيار القيمة
           'Value ... SelectedIndices(i)

           For i As Integer = 0 To Me.listClas.Items.Count - 1

               If Me.listClas.GetSelected(i) Then
                   'هنا متغير لتعبئة القيمة أثناء النقر على أحد قيم اللست بوكس
                   'لتحديد قيمة الصف المختار من قاعدة البيانات والمعبأ في اللست بوكس
                   arrListQuery.Add(
                       "SELECT TBL_Student.IDStudent " &
                       ", TBL_Student.NameStudent " &
                       ", TBL_Student.IDClas " &
                       ", TBL_Student.SETNO1 " &
                       ", TBL_Student.SETNO2 " &
                       ", TBL_Final1.IDSemester " &
                       ",TBL_Final1.NameCourses " &
                       ",TBL_Final1.on " &
                       ",TBL_Final1.to " &
                       ",TBL_Final1.tr " &
                       " FROM TBL_Final1 RIGHT JOIN TBL_Student ON TBL_Final1.IDStudent = TBL_Student.IDStudent ") ' &
                   '" Where TBL_Student.IDClas=" & CInt(i + 1).ToString() & " and TBL_Final1.IDClas=" & CInt(i + 1).ToString)

               End If

           Next

           '==========================

           'تحديد متغير لتعبئة مجموعة البيانات من الاستعلام
           Dim da As OleDb.OleDbDataAdapter

           da = New OleDbDataAdapter(Nothing, Con)
           'هنا تحديد متغير داتا سيت لتخزين البيانات
           Dim ds As New DataSet


           For i As Integer = 0 To arrListQuery.Count - 1

               If Not IsNothing(arrListQuery(i)) Then

                   'Assign the query string.
                   da.SelectCommand.CommandText = arrListQuery(i).ToString

                   'تعبئة مخزن البيانات من الاستعلام المحدد
                   da.Fill(ds, "Student")

               End If
           Next

           DataGridView1.DataSource = ds.Tables("Student")

           'تحديد بيانات الداتا قريد التي ستعبأ

           FillStudent_Load()
           'Destroy object.
           'arrListQuery = Nothing

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

على كلِّ حال هذا الكود لم يحقق المطلوب؛ ولهذا رجعتُ للمثال الأول وقمتٌ ببعض التعديلات وثم المطلوب بفضل الله تعالى
والذي أرجـوه هو التعديل على كود الحفظ حيث أريد أن يتم حفظ الدرجات في الحقول حسب  Index المـــــادة

ألا يوجد حلاً لمشكلة الحفظ