主题：[求助]新增 删除代码问题

回复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