Select Case e.DataCol.Name
Case "记录1","记录2","记录3","记录4","记录5"
If e.DataRow.IsNull("记录5") = False Then
e.DataRow("最新情况") = e.DataRow("记录5")
ElseIf e.DataRow.IsNull("记录4") = False Then
e.DataRow("最新情况") = e.DataRow("记录4")
ElseIf e.DataRow.IsNull("记录3") = False Then
e.DataRow("最新情况") = e.DataRow("记录3")
ElseIf e.DataRow.IsNull("记录2") = False Then
e.DataRow("最新情况") = e.DataRow("记录2")
ElseIf e.DataRow.IsNull("记录1") = False Then
e.DataRow("最新情况") = e.DataRow("记录1")
Else
e.DataRow("最新情况") =Nothing
End If
End Select