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

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