求助代码（考勤表） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

考勤机导出一个表，表明为“打卡记录”，表内有三列数据，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

建议做一个【考勤表】，把数据都导入此表。然后，你的【台账表】再根据【考勤表】统计你所需要的数据（比如查找早晚时间、打卡次数等等）

http://www.foxtable.com/webhelp/scr/1453.htm

老师，我按照您给的建议，已将考勤记录数据导入到【考勤台账】表中，然后，再整理提取到【考勤查询】表，但是，由于我是新手，对代码不熟，向您请教一下代码的编写问题

考勤台账有【考勤编号】【打卡时间】【索引标识】三列，其中索引标识是将考勤编号与打卡时间的年月进行合并而成

考勤查询有【考勤编号】【员工姓名】【所属公司】【1号上班时间】【1号下班时间】【1号工作时间】

以下是【考勤查询】窗口的查询按钮代码

If e.Form.Controls("DateTimePicker1").Value Is Nothing OrElse e.Form.Controls("DateTimePicker2").Value Is Nothing Then

MessageBox.Show("请输入起始日期和终止日期!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)

e.Cancel = True

Else

Dim C As New Filler

DataTables("考勤查询").DataRows.Clear() '清除原有数据

C.SourceTable = DataTables("考勤台账") '来源表

C.SourceCols = "索引标识,考勤编号" '来源列

C.Filter = "打卡时间日期格式 >= #" & e.Form.Controls("DateTimePicker1").value & "# And 打卡时间日期格式 <= #" & e.Form.Controls("DateTimePicker2").value & "# " '判断条件

C.DataTable = DataTables("考勤查询") '目标表

C.DataCols = "索引标识,考勤编号" '目标列

C.Fill()

Tables("考勤管理窗口_Table2").Sort = "所属公司 DESC"

End If

以下是【考勤查询】表的事件代码

If e.DataCol.Name = "考勤编号" Then

If e.NewValue Is Nothing Then

e.DataRow("员工姓名") = Nothing

e.DataRow("所属公司") = Nothing

Else

Dim DD As DataRow

DD = DataTables("员工档案").Find("[考勤编号] = '" & e.NewValue & "'")

If DD IsNot Nothing Then

e.DataRow("员工姓名") = DD("员工姓名")

e.DataRow("所属公司") = DD("所属公司")

End If

请教：我如何编写表代码，实现将 “考勤台账” 中的某一个员工的当天最早一次打卡时间放在 ‘考勤查询“ 的【1号上班时间】列中，以1号为例，实际共31天，您受累给指导下，搞了一下午了，也看了所有与跨表引用和导入数据相关的帮助，搞不定

比如代码

Dim d As Date = "2018-7-17"

Dim DD As DataRow

DD = DataTables("考勤台账").Find("[考勤编号] = '" & e.datarow("考勤编号") & "' and 打卡时间 >= #" & d & "# and 打卡时间 < #" & d.adddays(1) & "#", "打卡时间")

msgbox(dd("打卡时间")) '最早

DD = DataTables("考勤台账").Find("[考勤编号] = '" & e.datarow("考勤编号") & "' and 打卡时间 >= #" & d & "# and 打卡时间 < #" & d.adddays(1) & "#", "打卡时间 desc")

msgbox(dd("打卡时间")) '最迟

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