datacolchanged事件
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