[amgad525]

كود :

SQL: SELECT * FROM table ORDER BY colTotal DESC


Dim myOrder As Integer
Dim myTotal As Integer


myOrder = 1
myTotal = Rows(0) Field(colTotal)

               
Rows(0) Field(colOrder)  = 1


For i = 1 To Rows.Count - 1

   If Rows(i) Field(colTotal) <> myTotal Then myOrder = myOrder + 1

   myTotal = Rows(i) Field(colTotal)

   Rows(i) Field(colOrder) = myOrder

Next