Select Case e.DataCol.name Case "用户电话","用户地址" Dim dr As DataRow = e.DataRow If e.DataTable.Compute("Count([_Identify])","(用户电话 = '" & dr("用户电话") & "' or 用户地址 = '" & dr("用户地址") & "') and 黑名单 = true") > 0 Then MessageBox.Show("注意!该用户已经被列入黑名单,请注意核对","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If End Select