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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 判断重复值

共有4156人关注过本帖树形打印复制链接主题：判断重复值

andycun

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

等级：婴狐帖子：11 积分：217 威望：0 精华：0 注册：2012/7/30 9:46:00

判断重复值

Post By：2013/11/4 11:05:00 [只看该作者]

哪位老师帮忙解决1个小问题

自动考勤的问题

日期姓名考勤

10-1 张三 1

10-1 李四 1

10-2 张三 1

10-2 张三

10-3 李四 1

10-3 李四

10-3 张三 1

日期+姓名无重复时输入 1

其它输入 0 或为空

主要是判断日期列和姓名列是否重复

怎样用表达式来实现

谢谢

Bin

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

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/11/4 11:20:00 [只看该作者]

Dim dic As new Dictionary(of String,String)

For Each dr As DataRow In DataTables("表A").datarows

If dic.ContainsKey(dr("日期"))=False AndAlso dic.ContainsValue (dr("姓名"))=False Then

Dim drList As List(of DataRow)=DataTables("表A").Select("日期='" & dr("日期") & "' and 姓名='" & dr("姓名") & "'" )

If drList IsNot Nothing Then

For i As Integer=0 To drList.count-1

If i= 0 Then

drList(i)("考勤")=1

Else

drList(i)("考勤")=0

End If

dic.Add(dr("日期"),dr("姓名"))

End If

主题：判断重复值