主题：[求助]重复值筛选

DataColChanged事件

Dim dr As DataRow =e.DataRow

Select Case e.DataCol.name
    Case "出厂编号"
        Dim filter As String
        If dr.IsNull("出厂编号") = False Then
            filter = "出厂编号 = '" & dr("出厂编号") & "'"
        End If
        Dim fdr As DataRow = e.DataTable.find(filter)
        If fdr IsNot Nothing Then
            filter =  "出厂编号 = '" & dr("出厂编号") & "' and  注册代码 = '" & dr("注册代码") & "'"
            fdr = e.DataTable.find(filter)
            If fdr IsNot Nothing Then
                msgbox("存在相同 编号 和 代码")
            Else
                msgbox("存在相同编号")
            End If
        End If
    Case "注册代码"
        Dim filter As String
        If dr.IsNull("注册代码") = False Then
            filter = "注册代码 = '" & dr("注册代码") & "'"
        End If
        Dim fdr As DataRow = e.DataTable.find(filter)
        If fdr IsNot Nothing Then
            filter =  "出厂编号 = '" & dr("出厂编号") & "' and  注册代码 = '" & dr("注册代码") & "'"
            fdr = e.DataTable.find(filter)
            If fdr IsNot Nothing Then
                msgbox("存在相同 编号 和 代码")
            Else
                msgbox("存在相同注册代码")
            End If
        End If
       
End Select

Dim dr As DataRow =e.DataRow

Dim filter As String
If dr.IsNull("出厂编号") = False Then
    filter = "出厂编号 = '" & dr("出厂编号") & "'"
End If

If dr.IsNull("注册代码") = False Then
    filter = "注册代码 = '" & dr("注册代码") & "'"
End If

Dim fdr As DataRow = e.DataTable.find(filter)
If fdr IsNot Nothing Then
    filter =  "出厂编号 = '" & dr("出厂编号") & "' and  注册代码 = '" & dr("注册代码") & "'"
    fdr = e.DataTable.find(filter)
    If fdr IsNot Nothing Then
        msgbox("存在相同 编号 和 代码")
    Else
        msgbox("存在相同编号")
    End If
End If

Dim dr As DataRow =e.DataRow
Dim filter As String
Dim count As Integer

filter =  "出厂编号 = '" & dr("出厂编号") & "' and  注册代码 = '" & dr("注册代码") & "'"
count = e.DataTable.Compute("count(出厂编号)", filter)
If count > 1 Then
    msgbox("存在相同代码和编号")
    e.cancel = True
End If

If dr.IsNull("出厂编号") = False Then
    filter = "出厂编号 = '" & dr("出厂编号") & "'"
End If
count = e.DataTable.Compute("count(出厂编号)", filter)
If count > 1 Then
    msgbox("存在相同编号")
    e.cancel = True
End If
If dr.IsNull("注册代码") = False Then
    filter = "注册代码 = '" & dr("注册代码") & "'"
End If
count = e.DataTable.Compute("count(出厂编号)", filter)
If count > 1 Then
    msgbox("存在相同代码")
    e.cancel = True
End If

不是有么？ 1就是排除重复值

http://www.foxtable.com/help/topics/2712.htm

mark 去除重复

Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列,第二列,第三列"
For Each dr As DataRow In DataTables("表A").Select("", cs)
   
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
    End If
    If flag Then
        If count > 1 Then
            idx &= idx_temp
        End If
        count = 1
        idx_temp = ""
    Else
        count += 1
        idx_temp &= dr("_Identify") & ","
    End If
   
    pdr = dr
Next

If count > 1 Then
    idx &= idx_temp
End If

Tables("表A").filter = "_Identify not in (" & idx.trim(",") & ")"