主题：求助代码（考勤表）

老师，求教下关于考勤计算和统计的代码

考勤机导出一个表，表明为“打卡记录”，表内有三列数据，A列 为员工编号；B列 为打卡时间(日期时间格式）；在此基础上我以公式形式生成了C列（索引列）  为员工编号+打卡日期（没有时间）以此列作为索引标识，区分同一个员工在同一天的打卡次数

需求：在狐表系统有一个表“考勤台账”，表内有【员工编号】列，【打卡日期】列(没有时间），【早打卡时间】列，【晚打卡时间】列，我以代码形式如何实现：在导入数据的时候，同一个员工，同一天的最早打卡时间放入该员工编号和同打卡日期的【早打卡时间】列；同理，将同一个员工，的同一天的最后一次打卡时间放入该员工编号和同打卡日期的【晚打卡时间】列

当前导入按钮的代码如下，能导入数据，但是没有上述功能，烦劳老师指点下代码，新手上路多多帮忙！！

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("考勤台账")
    t.StopRedraw()
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim newcount As Integer = 0
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As DataRow
        r = t.DataTable.AddNew()
        newcount += 1
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                r(cname) = sheet(n, i).Text
            End If
        Next
    Next
    msgbox("已导入 " & newcount &" 行数据")
    t.ResumeRedraw()
End If