Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查找重复行


  共有2855人关注过本帖树形打印复制链接

主题：查找重复行
帅哥哟，离线，有人找我吗？
卟离卟弃
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1181 积分：8108 威望：0 精华：1 注册：2009/1/17 10:52:00 		查找重复行  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04700 秒, 4 次数据查询