[求助]高亮显示重复数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]高亮显示重复数据

共有3973人关注过本帖树形打印复制链接主题：[求助]高亮显示重复数据

wyz20130512

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

[求助]高亮显示重复数据 发帖心情

Post By：2015/7/1 23:57:00 [只看该作者]

此主题相关图片如下：qq截图20150701235759.png

如上图所示，是一个由考勤机导出的Excel文件，合并到项目中的，有的员工因错误操作一天之中会签2次以上，如何将这些一日签2次以上数据高亮显示，请老师指点。

[此贴子已经被作者于2015/7/2 0:03:38编辑过]

sloyy

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2015/7/2 0:04:00 [只看该作者]

任意列数重复值判断通用代码 -

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41534&replyID=&skin=1

wyz20130512

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

回复：（sloyy）任意列数重复值判断通用代码 -http://... 发帖心情

Post By：2015/7/2 0:17:00 [只看该作者]

单位要求每个员工一天只签2次到，上午1次，下午1次，如何高亮显示一天签2次以上的数据行。

monvzhilei

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/7/2 8:08:00 [只看该作者]

感觉要用日期函数，取出年月日。然后多列重复值判断一下。

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/2 9:09:00 [只看该作者]

drawCell事件

e.Table.DataTable.AddUserStyle("重复", Color.Red, Color.Black)
If e.Col.Name = "日期时间" Then
    Dim fdr As DataRow = e.Table.DataTable.Find("日期时间 >= #" & e.Row("日期时间").Date & "# and 日期时间 < #" & e.Row("日期时间").Date.AddDays(1) & "# and _Identify <> " & e.Row("_Identify"))
    If fdr IsNot Nothing Then
        e.style = "重复"
    End If
End If

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

wyz20130512

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

回复：（大红袍）drawCell事件 e.Table.Data... 发帖心情

Post By：2015/7/2 9:48:00 [只看该作者]

此主题相关图片如下：qq截图20150702093737.png

“大红袍”老师，执行后的效果如上图，所有的行都标记了，我想要的是：只标记不同员工某一天签2次以上的行（如上图我用蓝框标记的数据）。

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/2 9:52:00 [只看该作者]

e.Table.DataTable.AddUserStyle("重复", Color.Red, Color.Black)
If e.Col.Name = "日期时间" Then
    Dim fdr As DataRow = e.Table.DataTable.Find("姓名 = '" & e.Row("姓名") & "' And 日期时间 >= #" & e.Row("日期时间").Date & "# and 日期时间 < #" & e.Row("日期时间").Date.AddDays(1) & "# and _Identify <> " & e.Row("_Identify"))
    If fdr IsNot Nothing Then
        e.style = "重复"
    End If
End If

wyz20130512

小大 8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

回复：（大红袍）e.Table.DataTable.AddUserStyle("重... 发帖心情

Post By：2015/7/2 10:21:00 [只看该作者]

请“大红袍”老师指点，给单位的员工发工资用，谢谢！

没有达到我想要的效果，我只要标记不同员工同一天中重复2次（不含2次）以上的数据行。

即找出一天之中签了3次或3次以上的数据行并标记之。

[此贴子已经被作者于2015/7/2 10:41:52编辑过]

大红袍

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/2 10:41:00 [只看该作者]

e.Table.DataTable.AddUserStyle("重复", Color.Red, Color.Black)
If e.Col.Name = "日期时间" Then
    Dim count As Integer = e.Table.DataTable.Compute("count(姓名)","姓名 = '" & e.Row("姓名") & "' and 日期时间 >= #" & e.Row("日期时间").Date & "# and 日期时间 < #" & e.Row("日期时间").Date.AddDays(1) & "#")
    If count > 2 Then
        e.style = "重复"
    End If
End If

[此贴子已经被作者于2015/7/2 11:00:51编辑过]

wyz20130512

小大 10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

回复：（大红袍）?e.Table.DataTable.AddUserSty... 发帖心情

Post By：2015/7/2 10:48:00 [只看该作者]

请“大红袍”老师再指点，给单位的员工发工资用，谢谢！

没有达到我想要的效果，即找出一天之中签了3次或3次以上的数据行并标记之。

此主题相关图片如下：qq截图20150702093737.png

[此贴子已经被作者于2015/7/2 10:59:37编辑过]

下一主题 >> << 上一主题

总数 24 1 2 3 下一页

主题：[求助]高亮显示重复数据