Select Case e.DataCol.name Case "A", "B" Dim drs As List(Of DataRow) = e.DataTable.Select("A = '" & e.DataRow("A") & "'", "B desc") If drs.count > 0 Then drs(0)("c") = "正确" For i As Integer = 1 To drs.count-1 drs(i)("C") = Nothing Next End If End Select