主题：[求助]核实表存在的重复内容

我的表中有十多万条记录，现在需要对这些记录进行多条件核实重复内容；比如：筛选出“表A”中的‘第一列’‘第二列’‘第三列’内容相同的行，命令该怎么写？或者是将有重复的行标上颜色也可以

Dim idxs As String = ""
For Each dr As DataRow In DataTables("表A").DataRows
    Dim dr2 As DataRow = DataTables("表A").Find("第一列='" & dr("第一列") & "' and 第二列='" & dr("第二列") & "' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        idxs &= dr("_Identify") & ","
    End If
Next
Tables("表A").Filter = "_Identify in (" & idxs.trim(",") & ")"

 或者参考这段

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=61292&skin=0

 

我在【工单号】列的 列属性 中选择了 禁止重复= True  但是我在该列中重复输入以下内容不会提示重复

 

 

CMCC-HZ-TYGZ-20170502-00615-001-0012

 

只有在你表格输入值的时候，才会检测。你用代码赋值时不会检测

 

换一种方式 http://www.foxtable.com/webhelp/scr/2481.htm

 

由于我是多人同时录入数据，怕多人同时录入同一工单。为避免该问题；我需要进行核查是否重复时、是直接去数据库进行核查、而不是在已加载的数据中进行核查。我的命令该怎么修改。

 

If e.DataCol.Name = "工单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("工单号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此工单号已经存在!!!")
        e.Cancel = True
    End If
End If

If e.DataCol.Name = "工单号" Then
    Dim dr As DataRow
    dr = e.DataTable.SqlFind("工单号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此工单号已经存在!!!")
        e.Cancel = True

    Else

        e.datarow.Save
    End If
End If

我想实现在当前表中，不允许同一个【工作站】有多个【职务】为“工作站站长”存在；以下命令该怎么改？

 

If e.DataCol.Name = "工作站"  Or e.DataCol.Name = "职务"  Then
    Dim dr As DataRow
    dr = e.DataTable.Find("工作站 = '" & e.NewValue & "' and 职务 = '工作站站长' ")
    If dr IsNot Nothing Then
        MessageBox.Show("该工作站已经存在站长,不能重复录入!!!")
        e.Cancel = True
    End If
End If

If e.DataCol.Name = "工作站"  Or e.DataCol.Name = "职务"  Then
    Dim dr As DataRow 

    If e.DataCol.Name = "工作站" then
        dr = e.DataTable.Find("工作站 = '" & e.NewValue & "' and 职务 = '工作站站长' ")

    ElseIf e.newvalue = "工作站站长"

        dr = e.DataTable.Find("工作站 = '" & e.datarow("工作站") & "' and 职务 = '工作站站长' ")

    End If

    If dr IsNot Nothing Then
        MessageBox.Show("该工作站已经存在站长,不能重复录入!!!")
        e.Cancel = True
    End If
End If

还是不行、只要修改的是【工作站】内容、不管【职务】是什么，只要表中有相同内容都会弹出重复提示