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


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

主题：[求助]高亮显示重复数据
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（sloyy）任意列数重复值判断通用代码 -http://...  发帖心情 Post By：2015/7/2 0:17:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（大红袍）drawCell事件 e.Table.Data...  发帖心情 Post By：2015/7/2 9:48:00 [显示全部帖子]


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

“大红袍”老师，执行后的效果如上图，所有的行都标记了，我想要的是：只标记不同员工某一天签2次以上的行（如上图我用蓝框标记的数据）。
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（大红袍）加上姓名判断 e.Table.Data...  发帖心情 Post By：2015/7/2 11:08:00 [显示全部帖子]

万分感谢“大红袍”老师的指点，问题解决了！顺便问一下，您是做红茶生意的吗？若是我一定会购买您的产品，
您这种乐于助人的精神真是让人由衷的钦佩！再次感谢！
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（大红袍）加上姓名判断?e.Table.Data...  发帖心情 Post By：2015/7/2 12:59:00 [显示全部帖子]

再请教"大红袍"老师，按照您的思路，我将Find方法换为Select方法，却没达到想要的结果，不知何故？代码如下：


e.Table.DataTable.AddUserStyle("重复", Color.Red, Color.White)
If e.Col.Name = "日期时间" Then
    Dim drs As List(Of DataRow) = e.Table.DataTable.Select("[姓名] = '" & e.Row("姓名") & "' And [日期时间] >= #" & e.Row("日期时间").Date & "# and [日期时间] < #" & e.Row("日期时间").Date.AddDays(1) & "# and [_Identify] <> " & e.Row("_Identify"))
    If drs.Count > 2 Then
        e.Style = "重复"
    End If
End If
[此贴子已经被作者于2015/7/2 13:03:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（大红袍）加上姓名判断?e.Table.Data...  发帖心情 Post By：2015/7/2 13:07:00 [显示全部帖子]

问题找到了，用“号替换掉标记部分即可。

e.Table.DataTable.AddUserStyle("重复", Color.Red, Color.White)
If e.Col.Name = "日期时间" Then
    Dim drs As List(Of DataRow) = e.Table.DataTable.Select("[姓名] = '" & e.Row("姓名") & "' And [日期时间] >= #" & e.Row("日期时间").Date & "# and [日期时间] < #" & e.Row("日期时间").Date.AddDays(1) & "# and [_Identify] <> " & e.Row("_Identify"))
    If drs.Count > 2 Then
        e.Style = "重复"
    End If
End If
[此贴子已经被作者于2015/7/2 13:08:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（大红袍）加上姓名判断 e.Table.Data...  发帖心情 Post By：2015/7/2 22:08:00 [显示全部帖子]

"大红袍"老师，再次请教：如何筛选出哪些标记出来的数据行？

 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（大红袍）mark 筛选重复?Dim idx As ...  发帖心情 Post By：2015/7/3 0:13:00 [显示全部帖子]

太厉害了，达到了想要的效果了。您一定是计算机系软件设计专业毕业的。万分感谢！

能加您的QQ吗？2450314695
[此贴子已经被作者于2015/7/3 0:14:46编辑过]
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询