数据行是基于当前加载sql部分数据的，1、怎么设置基于所有数据（包括后台数据）执也可以执行以下代码，找出重复行。2、这两个代码，可以优化吗？请老师指导

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
            For Each s As String In dr("工号").split(",")
                Dim filter = "截止日期 = \'" & dr("截止日期") & "\' and 时段 = \'" & dr("时段") & "\' and (\',\'+工号+\',\') like \'%," & s & ",%\'"
                Dim count = e.DataTable.Compute("count(时段)", filter)
                If count > 1 Then
                    msgbox("查看员工重复")
                    e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
                    Exit For
                End If
            Next
        End If
End Select

Select Case e.DataCol.name
    Case "截止日期","编号"
        Dim dr1 As DataRow = e.DataRow
        If dr1.IsNull("截止日期")  = False  AndAlso dr1.IsNull("编号") = False Then
            For Each s As String In dr1("编号").split(",")
                Dim filter = "截止日期 = \'" & dr1("截止日期") & "\'and 编号 = \'" & dr1("编号") & "\'"
                Dim count = e.DataTable.Compute("count(编号)", filter)
                If count > 1 Then
                    msgbox("查看客户是否重复")
                    e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
                    Exit For
                End If
            Next
        End If
End Select

还是要分成两段代码？

下面这段，怎改呢？谢谢！（判定截止日期和编号是否重复，         这两列里没有包含(,)逗号。）

Select Case e.DataCol.name
    Case "截止日期","编号"
        Dim dr1 As DataRow = e.DataRow
        If dr1.IsNull("截止日期")  = False  AndAlso dr1.IsNull("编号") = False Then
            For Each s As String In dr1("编号").split(",")
                Dim filter = "截止日期 = \'" & dr1("截止日期") & "\'and 编号 = \'" & dr1("编号") & "\'"
                Dim count = e.DataTable.Compute("count(编号)", filter)
                If count > 1 Then
                    msgbox("查看客户是否重复")
                    e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
                    Exit For
                End If
            Next
        End If
End Select

老师，我没有编正常，弹出窗口关不了。

Select Case e.DataCol.name
    Case "截止日期","编号"
        Dim dr1 As DataRow = e.DataRow
        If dr1.IsNull("截止日期") =  False  AndAlso dr1.IsNull("编号") = False Then
            Dim filter As String = "截止日期 = \'" & dr1("截止日期") & "\' and (1=2 "
            For Each s As String In dr1("编号").split(",")
                filter= filter & " or (\',\'+编号+\',\') like \'%," & s & ",%\'"
            Next
            filter = filter & ")"
            Dim count = e.DataTable.SqlCompute("count(编号)", filter)
            If count > 1 Then
                msgbox("日期   客户编号    重复")
                e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
            End If
        End If
End Select
此主题相关图片如下：3.png

这段代码，不生效。

  Post By：2018/9/30 14:12:00 [只看该作者]

试试这样，如果还不行，做个例子上来测试。

没看到附件，如果还有问题，具体实例发上来测试。