maidinhdan > 27-06-19, 02:18 AM
Trích dẫn:từ:Nguyễn Văn Hồng Thắng <nguyenvanhongthang@gmail.com>
tới:maidinhdan@gmail.com
ngày:21:05, 26 thg 6, 2019
Bạn có thể huớng dẫn mình xếp thứ hạng mà không bị nhảy bậc được không
ạ? Thấy cái bạn làm ở đây nó bị nhảy bậc khi có người bằng nhau mất.
Mong bạn giúp đỡ ạ!
'---------------------------------------------------------------------------------------
' Procedure : HamXepHang (I)
' Author : HENDAN_WIN10PRO
' Date : 27/06/2019
' Purpose : HamXepHang("BangLuong","NGAYCONG",[NGAYCONG])
'---------------------------------------------------------------------------------------
'
Function HamXepHang(TenTable As String, TenCotCanXepHang As String, SoCanXep As Integer) As Integer
Dim rs As Recordset
Dim sql As String
Dim i As Integer
On Error GoTo Loi
sql = "SELECT " & TenCotCanXepHang & " FROM " & TenTable & " GROUP BY " & TenCotCanXepHang & " ORDER BY " & TenCotCanXepHang
Set rs = CurrentDb.OpenRecordset(sql)
If rs.RecordCount > 0 Then
rs.MoveFirst
i = 1
Do Until rs.EOF
If rs.Fields(TenCotCanXepHang) = SoCanXep Then
HamXepHang = i
GoTo ThoatLoi
End If
i = i + 1
rs.MoveNext
Loop
Else
MsgBox "Khong co nguoi nao de xep hang"
End If
ThoatLoi:
rs.Close
Exit Function
Loi:
Resume ThoatLoi
End Function
HamXepHang("Tên table của bạn","Tên cột cần xếp hạng",[Tên đối tượng cần phân loại hạng mấy])
Thang0977427268 > 28-06-19, 10:46 AM
Thang0977427268 > 28-06-19, 12:27 PM
maidinhdan > 29-06-19, 11:20 PM
(28-06-19, 12:27 PM)Thang0977427268 Đã viết: Bạn maidinhdan ơi! Cho mình hỏi xíu cái này mình thực hiện từ nguồn Query không phải là Table có được không nhỉ? Do mình làm nó cứ bị treo chứ không chạy được? Nguồn của mình là Query không phải Table
Nguyễn Thị Thuận > 09-09-24, 05:58 PM
ongke0711 > 09-09-24, 06:36 PM
(09-09-24, 05:58 PM)Nguyễn Thị Thuận Đã viết: Dear Anh Maidinhdan,[/quote]
Hiện em cũng đang có một danh sách là số kg của vận động viên theo đội, sắp xếp thứ tự trong đội, và nếu trùng kg với các bạn trong đội thì sẽ không trùng xếp hạng. Nhờ anh hỗ trợ giúp em ạ.
Cách khác: Dùng Demo [Hàm] [Phần 3] Demo Xếp hạng (Dùng Mãng Array)
Nguyễn Thị Thuận > 10-09-24, 12:22 AM