回复40楼,时间列,要特殊处理一下
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
Dim d As Date = dr("交易时间")
d = new Date(1900, 1, 1, d.Hour, d.Minute, d.Second)
If e.DataTable.Compute("Count([_Identify])","交易时间 = #" & d & "# 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