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

改进：

For Each s As String In DataTables("大单资金").GetUniqueValues("","日期")
    Dim n As Integer = 0
    Dim drs As List(Of DataRow)
    drs = DataTables("大单资金").Select("[日期] = '" & s & "'")
    For Each dr As DataRow In drs
        n = n + 1
        dr("排名") = n
    Next
Next

我不太明白你的意思。