If e.DataCol.Name = "项目" orelse e.DataCol.Name = "姓名" Then
If e.DataRow.IsNull("项目") = False andalso e.DataRow.IsNull("姓名") = False Then
Dim dr1 As DataRow = e.DataTable.Find("项目='" & e.DataRow("项目") & "' and 姓名='" & e.DataRow("姓名") & "' and _sortkey <" & e.DataRow("_sortkey"),"_sortkey desc")