Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：考勤报表产生


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

主题：求助：考勤报表产生
帅哥哟，离线，有人找我吗？
qwz405
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：526 积分：5083 威望：0 精华：0 注册：2015/4/15 15:25:00 		求助：考勤报表产生  发帖心情 Post By：2016/11/15 17:34:00 [只看该作者]

考勤数据已从考勤机获取，表结构如下所示：
(困惑：上/下班数据不在同一行上。)

图片点击可在新窗口打开查看此主题相关图片如下：111.jpg
图片点击可在新窗口打开查看


查询了论坛的一些帖子，感觉下面的代码有用：
Dim dt1 As Date = #11/14/2016#
Dim dt2 As Date = #11/14/2016#
Dim dtb As New DataTableBuilder("统计表1")
dtb.AddDef("name", Gettype(String), 32)
dtb.AddDef("cardno", Gettype(String), 32)
dtb.AddDef("date", Gettype(Date))
dtb.AddDef("t1", Gettype(String))
dtb.AddDef("t2", Gettype(String))
dtb.Build
For Each dr1 As DataRow In DataTables("AtdRecord88").DataRows
    For i As Integer = 0 To (dt2 - dt1).TotalDays
        Dim dr2 As DataRow
        dr2 = DataTables("统计表1").Addnew
        dr2("name") = dr1("recName")
        dr2("CardNo") = dr1("CardNo")
        dr2("date") = dt1.AddDays(i)
        Dim drs As List(of DataRow) =  DataTables("AtdRecord88").Select("CardNo = '" & dr2("CardNo") & "'And Time >= #" & dr2("Date") & "# And Time < #" & dr2("Date").AddDays(1) & "# ")
        For n As Integer = 0 To drs.count -1
            If n = 0 Then
                dr2("t1") = Format(drs(n)("Time"),"HH:mm")
            ElseIf n = 1 Then
                dr2("t2") = Format(drs(n)("Time"),"HH:mm")
                Exit For
            End If
        Next
    Next
Next

得到如下结果：

图片点击可在新窗口打开查看此主题相关图片如下：222.jpg
图片点击可在新窗口打开查看


需要麻烦解决：
1.同一人的数据产生的2次(重复数据)，删除其中1次；
2.若只刷了下班时候(12:00以后)，希望时间能新增到t2，t1时间留空；---难的话，这点可以不解决

非常感谢~

[此贴子已经被作者于2016/11/15 17:36:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/15 20:03:00 [只看该作者]

导出这个表部分数据测试，或者上传例子

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


加好友 发短信
等级：二尾狐 帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00 		  发帖心情 Post By：2016/11/16 9:31:00 [只看该作者]

Dim dt1 As Date = #11/14/2016#
Dim dt2 As Date = #11/14/2016#
Dim dtb As New DataTableBuilder("统计表1")
dtb.AddDef("name", Gettype(String), 32)
dtb.AddDef("cardno", Gettype(String), 32)
dtb.AddDef("date", Gettype(Date))
dtb.AddDef("t1", Gettype(String))
dtb.AddDef("t2", Gettype(String))
dtb.Build
For Each dr1 As DataRow In DataTables("AtdRecord88").DataRows
    For i As Integer = 0 To (dt2 - dt1).TotalDays
        Dim dr2 As DataRow = DataTables("统计表1").find("CardNo = '" & dr1("CardNo") & "'And date >= #" & dr1("time") & "# And date < #" & dr1("time").AddDays(1) & "# ")
        If dr2 IsNot Nothing Then
            dr2 = DataTables("统计表1").Addnew
            dr2("name") = dr1("recName")
            dr2("CardNo") = dr1("CardNo")
            dr2("date") = dt1.AddDays(i)
            Dim drs As List(of DataRow) =  DataTables("AtdRecord88").Select("CardNo = '" & dr2("CardNo") & "'And Time >= #" & dr2("Date") & "# And Time < #" & dr2("Date").AddDays(1) & "# ")
            For n As Integer = 0 To drs.count -1
                Dim t As String = Format(drs(n)("Time"),"HH:mm")
                If t <= "12:00" Then
                    dr2("t1") = t
                Else
                    dr2("t2") = t
                End If
                Exit For
            Next
        End If
    Next
Next

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


加好友 发短信
等级：二尾狐 帖子：526 积分：5083 威望：0 精华：0 注册：2015/4/15 15:25:00 		  发帖心情 Post By：2016/11/18 15:39:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试1116.foxdb




代码放在窗口了，运行结果都不是需要的。


[此贴子已经被作者于2016/11/18 16:35:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/18 16:54:00 [只看该作者]


Dim dtb As New DataTableBuilder("统计表1")
dtb.AddDef("name", Gettype(String), 32)
dtb.AddDef("recgroup", Gettype(String), 32)
dtb.AddDef("cardno", Gettype(String), 32)
dtb.AddDef("date", Gettype(Date))
dtb.AddDef("t1", Gettype(String))
dtb.AddDef("t2", Gettype(String))
dtb.Build

Dim drs As List(Of DataRow) = DataTables("表A").Select("","CardNo,time")
Dim drpre As DataRow = drs(0)
Dim drnew As DataRow = DataTables("统计表1").Addnew
drnew("name") = drpre("recName")
drnew("recgroup") = drpre("recgroup")
drnew("CardNo") = drpre("CardNo")
Dim d As Date = drpre("time")
drnew("date") = drpre("time").Date
Dim d2 As Date = new Date(d.Year,d.Month,d.Day,12,0,0)
If d < d2 Then
    drnew("t1") = Format(drpre("Time"),"HH:mm")
Else
    drnew("t2") = Format(drpre("Time"),"HH:mm")
End If

For i As Integer = 1 To drs.Count - 1
    drpre = drs(i)
    If drnew("CardNo") = drpre("CardNo") AndAlso drnew("date") = drpre("time").Date Then
        d  = drpre("time")
        d2 = new Date(d.Year,d.Month,d.Day,12,0,0)
        If d < d2 Then
            drnew("t1") = Format(drpre("Time"),"HH:mm")
        Else
            drnew("t2") = Format(drpre("Time"),"HH:mm")
        End If
    Else
        drnew = DataTables("统计表1").Addnew
        drnew("name") = drpre("recName")
        drnew("recgroup") = drpre("recgroup")
        drnew("CardNo") = drpre("CardNo")
        d = drpre("time")
        drnew("date") = drpre("time").Date
        d2 = new Date(d.Year,d.Month,d.Day,12,0,0)
        If d < d2 Then
            drnew("t1") = Format(drpre("Time"),"HH:mm")
        Else
            drnew("t2") = Format(drpre("Time"),"HH:mm")
        End If
    End If
Next
[此贴子已经被作者于2016/11/18 16:54:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yj249592026
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：173 威望：0 精华：0 注册：2017/11/16 14:21:00 		  发帖心情 Post By：2017/12/1 16:08:00 [只看该作者]

楼主，可否把考勤数据已从考勤机获取 的代码贴出来学习一下，谢谢，或发到我的QQ邮箱 249592026@qq.com

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


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/12/1 17:04:00 [只看该作者]

以下是引用yj249592026在2017/12/1 16:08:00的发言：
楼主，可否把考勤数据已从考勤机获取 的代码贴出来学习一下，谢谢，或发到我的QQ邮箱 249592026@qq.com


上传实例，说明你的具体问题。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06104 秒, 5 次数据查询