Foxtable(狐表)用户栏目专家坐堂 → 重复数据提醒


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

主题:重复数据提醒

帅哥哟,离线,有人找我吗?
wangnovel
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:2071 威望:0 精华:0 注册:2012/10/6 17:19:00
重复数据提醒  发帖心情 Post By:2017/1/22 22:00:00 [只看该作者]

表A
 ID   ZD1 
   1   q
   2   w
   3   e
   2   r
   3   t

如表AID有重复数据,我希望设计一个按钮,点击该按钮,能提醒用户:有ID为“2”“3”的数据重复


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/22 22:50:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
wangnovel
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:2071 威望:0 精华:0 注册:2012/10/6 17:19:00
  发帖心情 Post By:2017/1/22 23:00:00 [只看该作者]

@有点色,我也是想用repeatfilter,但具体如何使用,使得弹出的对话框中能够出现重复的字段的值。另外,repeatfilter的返回值是什么类型的?

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/22 23:34:00 [只看该作者]

参考代码

 

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).replace(" ","") <> dr(c).replace(" ", "") Then
                flag = True
                Exit For
            End If
        Next
        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
    Else
        count += 1
    End If
    pdr = dr
Next

If count > 1 Then
    idx &= idx_temp
End If

Tables("表A").filter = "_Identify In (" & idx.trim(",") & ")"
msgbox("_Identify In (" & idx.trim(",") & ")")


 回到顶部