Select Case e.DataCol.name
Case "用户电话","用户地址"
Dim dr As DataRow = e.DataRow
If dr.IsNull("用户电话") = False AndAlso dr.IsNull("用户地址") = False Then
If e.DataTable.Compute("Count([_Identify])","用户电话 = '" & dr("用户电话") & "' And 用户地址 = '" & dr("用户地址") & "' and 黑名单 = true") > 0 Then
MessageBox.Show("注意!该用户已经被列入黑名单,请注意核对","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
End Select
[此贴子已经被作者于2015/7/23 9:40:52编辑过]