试试这样,不行,就上传例子。
Select Case e.DataCol.name
Case "交易时间","交易地点","对方户名"
Dim dr As DataRow = e.DataRow
If dr.IsNull("交易时间") = False AndAlso dr.IsNull("交易地点") = False AndAlso dr.IsNull("对方户名") = False Then
If e.DataTable.Compute("Count([_Identify])","交易时间 = #" & dr("交易时间") & "# And 交易地点 = '" & dr("交易地点") & "' And 对方户名 ='" & dr("对方户名") & "'") > 1 Then
MessageBox.Show("已经存在相同交易时间 交易地点 户名的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
End If
End If
End Select