主题：排名自动生成问题？

Dim s As String
s = DataTables("大单资金").GetComboListString("日期")

Dim n As Integer
For i As Integer = 0 To s.split("|").length -1
    Dim drs As List(Of DataRow)
    drs = DataTables("大单资金").Select("[日期] = '" & s.split("|")(i) & "'")
    For Each dr As DataRow In drs
        n = n + 1
        dr("排名") = n

    Next
    n = 0   
Next