主题：[求助]代码不完全加载后台数据执行？

数据行是基于当前加载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