以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断重复值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42095)
--  作者：andycun
--  发布时间：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
--  发布时间：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
            Next
        End If
        dic.Add(dr("日期"),dr("姓名"))
    End If
Next