加个条件就行了吧
dr = e.DataTable.Find("债权人 = '" & e.DataRow("债权人") & "' and [_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") '找出上一行