以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查找重复行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55197)
--  作者：卟离卟弃
--  发布时间：2014/8/12 15:36:00
--  查找重复行
    Case "重复考勤辅助"
        
        If dr.IsNull("重复考勤辅助") = False Then
            Dim dr2 As DataRow
            dr2 = DataTables("考勤表").Find("[重复考勤辅助] = \'" & dr("重复考勤辅助")& "\'")
            If dr2 IsNot Nothing Then
                dr("重复考勤提示") = "不重复"
            Else
                dr("重复考勤提示") = "重复"
            End If   
        End If


图片点击可在新窗口打开查看此主题相关图片如下：11111.png
图片点击可在新窗口打开查看


最后两行记录。明明是重复行，重复判断列里在， 提示不重复。怎么回事？




[此贴子已经被作者于2014-8-12 15:36:23编辑过]
--  作者：有点甜
--  发布时间：2014/8/12 15:40:00
--  

用下面代码，然后重置列。

 

Case "重复考勤辅助"

        
        If dr.IsNull("重复考勤辅助") = False Then
            Dim dr2 As DataRow
            dr2 = DataTables("考勤表").Find("[重复考勤辅助] = \'" & dr("重复考勤辅助")& "\' and _Identify <> " & dr("_Identify"))
            If dr2 Is Nothing Then
                dr("重复考勤提示") = "不重复"
            Else
                dr("重复考勤提示") = "重复"
            End If   
        End If