[مصمم هاوي]

هل يمكن التعديل على كود استخراج الطلبة العشرة الأوائل بحيث لو تكرر نرنيب معين يُصبح الترتيب مكرر
مثلاً: لو تكرر الترتيب الأول فيصبح الأول - الأول مكرر .... وهكذا

كود :

SQL = "delete * from TBL_first1"
DB.Execute SQL

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
SQL = "insert into TBL_first1 Select top 10 Name_Student, Clas, CClas, Category, SETNO1, Semester, total, FINAL, takdeer, result, TAG From TBL_Final2 where  result='ناجح' And Clas='" & Trim(CombClass2.Text) & "' And CClas='" & Trim(CombCClass2.Text) & "' And Semester=3" & " order by total DESC"

DB.Execute SQL

RS.Open "Select * from TBL_first1", DB, adOpenStatic, adLockOptimistic
For I = 1 To RS.RecordCount
If I = 1 Then RS!trteeb = "الأول"
If I = 2 Then RS!trteeb = "الثاني"
If I = 3 Then RS!trteeb = "الثالث"
If I = 4 Then RS!trteeb = "الرابع"
If I = 5 Then RS!trteeb = "الخامس"
If I = 8 Then RS!trteeb = "السادس"
If I = 7 Then RS!trteeb = "السابع"
If I = 8 Then RS!trteeb = "الثامن"
If I = 9 Then RS!trteeb = "التاسع"
If I = 10 Then RS!trteeb = "العاشر"

If I = 1 Then RS!ID = "1"
If I = 2 Then RS!ID = "2"
If I = 3 Then RS!ID = "3"
If I = 4 Then RS!ID = "4"
If I = 5 Then RS!ID = "5"
If I = 6 Then RS!ID = "6"
If I = 7 Then RS!ID = "7"
If I = 8 Then RS!ID = "8"
If I = 9 Then RS!ID = "9"
If I = 10 Then RS!ID = "10"

RS.MoveNext
Next I