Select Case e.DataCol.name Case "A列","B列" Dim dr As DataRow = e.DataRow If dr.IsNull("A列") = False AndAlso dr.IsNull("B列") = False Then If e.DataTable.Compute("Count([_Identify])","A列 = '" & dr("A列") & "' And B列 = '" & dr("B列") & "'") > 1 Then e.DataRow("c") = Nothing Else e.DataRow("c") = "正确" End If End If End Select