主题：[求助]禁止多列输入重复值

看帮助写的代码，目前不能实现禁止多列输入重复值，求纠正？

Select Case e.DataCol.name

    Case "作业日期","加硫炉号","管理号码","管理号码1","生产数","开始时间","结束时间"

        Dim dr As DataRow = e.DataRow

        If dr.IsNull("作业日期") = False AndAlso dr.IsNull("作业日期") = False AndAlso dr.IsNull("加硫炉号") = False AndAlso dr.IsNull("管理号码") = False AndAlso dr.IsNull("管理号码1") = False AndAlso dr.IsNull("生产数")= False AndAlso dr.IsNull("开始时间") = False AndAlso dr.IsNull("结束时间") =False Then

            If e.DataTable.Compute("Count([_Identify])","作业日期 = '" & dr("作业日期") & "' And 加硫炉号= '" & dr("加硫炉号") & "' And 管理号码= '" & dr("管理号码") & "'And 管理号码1= '" & dr("管理号码1") & "' And 生产数= '" & 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