[مصمم هاوي]

هل يتفضل أحد الأساتذة الكرام بالتعديل على كود الحفظ ؟
المطلوب:
عدم تكرار حفظ المــادة الدراسية للفصل الدراسي الواحد مرتين مثلاً:
الصف: الأول -  الفصل الدراسي: 1  -  المـادة: التربية الإسلامية
الصف: الأول -  الفصل الدراسي: 1-  المـادة: التربية الإسلامية

والصحيح:
الصف: الأول -  الفصل الدراسي: 1  -  المـادة: التربية الإسلامية
الصف: الأول -  الفصل الدراسي: 2-  المـادة: التربية الإسلامية
وهكذا ... مع بقية الصفوف الدراسية والفصول والمواد .

بدلاً من حفظ المادة مرتين فإنه يتم تحديث البيانات
علماً بأن إدخال البيانات عن طريق الداتا قريدفيو

كود :

           Try
               If dgv1.Rows.Count = 0 Then Exit Sub
               If Con.State = ConnectionState.Closed Then Con.Open()
               For i As Integer = 0 To dgv1.Rows.Count - IIf(dgv1.AllowUserToAddRows, 2, 1)
                   Using cm As New OleDb.OleDbCommand("", Con)
                       cm.Parameters.Clear()
                   cm.CommandText = "insert into TBL_result(stid,studentid,studentname,clasid,setno2,SemesterID,courseid,n1,n2,n3) Values (@stid,@studentid,@studentname,@clasid,@setno2,@SemesterID,@courseid,@n1,@n2,@n3)"
                   cm.Parameters.AddWithValue("@stid", AutoNum("TBL_result", "stid")).DbType = DbType.String
                   cm.Parameters.AddWithValue("@studentid", dgv1.Rows(i).Cells(0).Value)
                       cm.Parameters.AddWithValue("@studentname", dgv1.Rows(i).Cells(1).Value)
                       cm.Parameters.AddWithValue("@clasid", dgv1.Rows(i).Cells(3).Value)
                       cm.Parameters.AddWithValue("@setno2", dgv1.Rows(i).Cells(4).Value)
                       cm.Parameters.AddWithValue("@SemesterID", CombSemester.SelectedValue).DbType = DbType.String
                       cm.Parameters.AddWithValue("@courseid", CombCoursesID.Text).DbType = DbType.String
                       cm.Parameters.AddWithValue("@n1", dgv1.Rows(i).Cells(7).Value)
                       cm.Parameters.AddWithValue("@n2", dgv1.Rows(i).Cells(8).Value)
                       cm.Parameters.AddWithValue("@n3", dgv1.Rows(i).Cells(9).Value)

                       cm.ExecuteNonQuery()

                   End Using

               Next

               If Con.State = ConnectionState.Open Then Con.Close()

               MsgBox("تم رصد درجــات الصــف   : " & " " & listClas.Text & Chr(13) & " لمــادة : " & CombCourses.Text & " * بنجــاح " & "", MsgBoxStyle.Information, "الإجـــراء")

           Catch ex As Exception
               'MsgBox("الرجـــاء ... إدخـال جميع الدرجــات ", MsgBoxStyle.Critical, "تنبيـــه ")
           End Try

           If dgv1.Rows.Count = 0 Then Exit Sub
           For i As Integer = 0 To dgv1.Rows.Count - IIf(dgv1.AllowUserToAddRows, 2, 1)
               dgv1.Rows(i).Cells(7).Value = ""
               dgv1.Rows(i).Cells(8).Value = ""
               dgv1.Rows(i).Cells(9).Value = ""

           Next