改进:
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 NextNext