Dim drs As List(of DataRow) = dtt.Select("","合计 desc")
dim idx as integer
For i As Integer = 0 To drs.count - 1
if drs(i)("身份证姓名") = “李琳” then
idx = i
exit for
end if
next
For i As Integer = idx - 1 To idx
dr = drs(i)
Dim aaa01 As Double = dr("提成主销业绩")
Dim d01 As DataRow= DataTables("Users").SQLFind("Name='" & dr("身份证姓名") & "' ")
……